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Todas las notas y progra¬ 
mas de esta edición tam¬ 
bién están dirigidos a que 
los neófitos le pierdan el te¬ 
mor a la informática y se 
larguen a esta apasionante 
aventura. 


MSX Y PC 

Sistema operativo 


Los sistemas operativos 
que equipan a las máquinas 
MSX y a las PC son dos de 
los más utilizados actual¬ 
mente. La historia de am¬ 
bos está íntimamente rela¬ 
cionada, y por lo tanto tie¬ 
nen puntos en común. 


Revolución telemática 

El “boom” dé los boletines electrónicos parece extender¬ 
se en la Argentina. En este informe les presentamos a la 
mayoría de estos originales medios. Ofrecen la posibilidad 
de usarlos como correo, poner anuncios y acceder a va¬ 
riados datos. Basta cualquier computadora personal, un 
modem y un teléfono para ingresar a este sorprendente 
mundo. (Pág. 16) 


CRYPTO FILE 

Software Antipirata 


SECCIONES FIJAS 


INEDITOS 

Programas útiles y di¬ 
vertidos 

Para aprovechar los mo¬ 
mentos de ocio del verano 
ofrecemos una selección 
especial de programas pa¬ 
ra todas las máquinas. Tur¬ 
bo Print, Caverna,Memo¬ 
ria, Mecaprom Nav5, Fi¬ 
chero de Tarjetas, Stocli, 
Portfolio, entre otros. 


Cuando en Buenos Aires a- 
rrecian las versiones y des¬ 
mentidas acerca de la exis¬ 
tencia y actividad de los 
hackers nacionales, y 
mientras el fenómeno de 
las telecomunicaciones si¬ 
gue creciendo, la irrupción 
del programa Crypto File 
en el mercado no parece o- 
casional. 
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REVISION DE LIBROS. 

HARD TEST. 

TRUCOS. 

CLUB K-64. 

CORREO. 


DISEÑO GRAFICO 
JOHNNY VIBART 


Director Periodístico Femando Flores Secretario de Redacción Ariel Testori; Redacción Pedro Sorop -Andrea Sabin Paz; 
Asistente de Coordinación ClaudioVeloso Diagramación Femando Amengual - Tamara Migelson; 

Dep. de Avisos Oscar Devoto - Nelzo Capello Dep. de Publicidad Jefe: Dolores Urien, Promotores: Ménica Garibaldi y 
M arita García; Secretaría Moni Ocampo Servicios de Fotografía Oscar Buiriel, Víctor Grubicy e Image Bank. 

EDITORIAL PRO EDI 

Presidente Ernesto del Castillo; Vicepresidente Cristián Pusso; Director Titular Javier Campos Malbrán; 

Director Suplente Atmengol Torres Sabaté 


K-64 «i un. raviau manual ediud* por Editorial Proedi S.A. hrmi 720 5* dúo, Bueno* Aire*. Te]. 46-2886/49-7130. R^iio Llanada (jaira puu 11 -0056/312-6383 - Código 5941. 

Registro Nte ¿anal de la Propiedad Intelectual: 313-837. M. Registrada. Queda hecho en depósito que indica la Ley 11.723 de Propiedad Intelectual. Todos los derechos reservado» Impresión: 
Cslcotam. Fotocramo tapa: Golumbia. Distribuidor en Capital: MARTTNO, Juan de Garsy 358, P.B. Capital, Td. 361-6962. Distribuidor en Interior DGP, Hipólito Yrigoyen 1450* Capital, Tel. 
38926^9800. K64 ISSN 0326-8285. Los ejemplares atrasados re venderán al precio del último número encirculación. Prohibida su reproducción total t> parcial de loa materiales publicados, por 
cualquier medio de difusión gráfica, auditivo o mecánico, sin autorización expresa de los editores. Las menciones de modelo, marcas y especificaciones re realizan con fines informativos y 
técnico», sin cargo alguno para las empresas que los comercializan y/o los re p rese ntan. Al ser informativa, su misión, la revista no re responsabiliza par cualquier problema que pueda plantear la 
fabricación, el funcionamiento y/o la aplicación de los sistemas y los dispositivos descriptas. La responsabilidad de los artículos firmados corresponde exclusivamente a sus autores. 

MIEMBRO DE LA ASOCIACION ARGENTINA DE EDITORES DB REVISTAS 
CORREO ARGENTINO CASA CENTRAL, FRANQUEO FAGO CONCESION N* 2538, TARIFA REDUCIDA CONCESION N* 836 


3 


























































MUNDO INFORMATICO 


TECLAS Y COSAS 




TARJETA DE 
CHIP 

Siemens presentó como 
novedad mundial su nueva 
tarjeta de chip. Del tamaño 


mológica para que los pro¬ 
fesionales se mantengan 
informados. 

Los servicios que brinda la 
nueva base son: noticias 
sobre los próximos cursos, 
las hojas del CAO y actua¬ 


SAONET 


Según Siemens, los televi¬ 
sores de un futuro no muy 
lejano podrán tener una i- 
magen sin parpadeo. Ade¬ 
más los nuevos microchips 
proporcionarán una ima¬ 
gen múltiple (hasta nueve 
ventanas simultáneas). 
Gracias a los progresos de 
la microelectrónica, se 
puede digitalizar todo el 
procesamiento de las imá¬ 
genes de televisión. Para 
representar una sola ima¬ 
gen digital de televisión se 
necesitan nada menos que 
2,4 millones de bits, que se 
almacenan en chips. De es¬ 
ta forma se puede duplicar 
el número de alternancias 
por segundo (de 50 a 100). 
La imagen aparece sin par¬ 
padeo. Esto requiere alre¬ 
dedor de tres mil millones 
de operaciones aritméticas 
por segundo. 


miembro de la Academia 
Nacional de Ciencias E- 
xactas, Físicas y Naturales. 
La presentación del nuevo 
académico la hizo el inge¬ 
niero Hilario Fernández 
Long. A continuación Reg- 
gini disertó sobre “Crea¬ 
ción y representación de 
formas tridimensionales”, 
un tema sobre el cual escri¬ 
bió en nuestra revista “K 
64”. 


IMPRESORAS 

La empresa PRINTZEN 
S.A. lanzó al mercado local 
la línea de impresoras CI¬ 
TIZEN. De esta forma se 
incorpora al país una nueva 
marca de impresoras. 
Actualmente CITIZEN 
compite, en los Estados U- 
nidos, por el primer puesto 
en la venta de impresoras. 
Lo hace con los modelos 
MS-55, MSP-5, MSP-45 y 
MSP-40. 


de una tarjeta de crédito co¬ 
mún, contiene un diminuto 
chip integrado al material 
plástico. Estas tarjetas de 
nueva concepción podrán 
reemplazar al cheque, co¬ 
mo tarjetas de crédito para 
hacer compras o telefone¬ 
ar. Al realizar una compra, 
el cliente introduce la tarje¬ 
ta de chip en una 
pequeña termi¬ 
nal para su lectu¬ 
ra y teclea su nú¬ 
mero de identifi¬ 
cación personal. 

Este invento está 
en condiciones 
de reemplazar al 
dinero. 


lización en diversos temas. 
La SAONET funciona a 
través de Delphi Argenti¬ 
na, y para conectarse hay 
que usar un modem que 
responda a las normas 
CCITT, V21 o V22. 

TELEVISION 

DIGITAL 


La Sociedad Ar¬ 
gentina de Oftal¬ 
mología ha crea¬ 
do la primera ba¬ 
se de datos oftal- 


ACADEMICO 


NUEVA SUBSE¬ 
CRETARIA 


El Decreto 1485/87 
creó la S ubsecretaría de 
Sistemas de Informa¬ 
ción, dentro del área de 
la Secretaría de la Fun¬ 
ción Pública, a cargo 
del ingeniero Patricio 
Castro. El funcionario 
dijo que entre sus obje¬ 
tivos principales figura 
la racionalización del 
uso de la informática en 
la Administración Pú¬ 
blica. 


El doctor Horacio C. Reg- 
gini fue incorporado como 

















MUNDO INFORMATICO 


CONVENIO 

La Subsecretaría de Siste¬ 
mas de Información apoya¬ 
rá técnicamente a ENTel en 
el desarrollo de proyectos 
informáticos, telemáticos y 
de capacitación. 

El convenio firmado entre 
los dos organismos tam¬ 
bién contempla la automa¬ 
tización de las oficinas, la 
modernización de la admi¬ 
nistración intema y el ser¬ 
vicio de clientes. 

CINTAS DE 
IMPRESION 


cho de Autor. Las nuevas 
computadoras serán afec¬ 
tadas al registro de Obras y 
Contratos de Software. 

El presidente de la cámara, 
doctor Jorge Cassino (fo¬ 
to), destacó la inaugura¬ 
ción como un hecho de¬ 
mostrativo de que las em¬ 
presas privadas pueden co¬ 
laborar con lo que es de su 
dominio específico, con el 
Estado. La directora de la 
Dirección Nacional del 
Derecho de Autor, doctora 
Hilda Retondo, agradeció 
la colaboración recibida 
por parte de la CES. 



teara lealmente los proble¬ 
mas, que apartara los pre¬ 
juicios, en síntesis, una so¬ 
ciedad de libertad y progre¬ 
so”. 


cluyeron microchips 
que tocaron villanci¬ 
cos. Las revistas que 
publicaron estos a- 
nuncios sorprendie¬ 
ron al lector, ya que al 
abrir la página donde 
estaba el anuncio, so¬ 
naba una agradable 
música navideña. 

Las agencias esta¬ 
dounidense de publi¬ 
cidad, TB W A y Ally- 

Gargano/MCA, son las 
pioneras en esta nueva for¬ 
ma de anunciar sus produc¬ 
tos. 


Computational-3 comer¬ 
cializa la línea de cintas pa¬ 
ra impresoras Ciasa. La lis¬ 
ta de impresoras es muy 
amplia y además se cuenta 
con un Service de recarga y 
reentintado. 

Las cintas tienen garanda 
sobre la calidad y construc¬ 
ción, y pueden ser almace¬ 
nadas por el término de un 
año sin que sufran altera¬ 
ciones. 


INAUGURA¬ 

CION 

La Cámara de Empresas de 
Software (CES) inauguró 
los equipos y su respectivo 
software que donó a la Di¬ 
rección Nacional del Dere¬ 


ANIVERSARIO 

La Cámara de Informática 
y Comunicaciones celebró 
con un cóctel su segundo a- 
niversario como institu¬ 
ción. Su presidente, Juan 
C. López Yanes, dijo du¬ 
rante la celebración que es¬ 
ta etapa ha consolidado la 
entidad en un accionar con¬ 
sistente y coherente que ha 
perfilado su propio estilo”. 
“Hace dos años constituia- 
mos esta institución -seña¬ 
ló-, con la intención de res¬ 
ponder a las legítimas aspi¬ 
raciones del sector de in¬ 
formática y comunicacio¬ 
nes, pero, principalmente, 
con el anhelo de cooperar 
en la constitución de una 
nueva sociedad, que plan¬ 



PAGINAS 

MUSICALES 


WALL STREET 

La esprepitosa caída de la 
Bolsa de Nueva York fue 
más acelerada debido al u- 


Los avisos del whisky “Ca- so de computadoras. Mau- 
nadian Mist” y del vodka rice Mann, presidente de la 
“Absolut”, de Navidad, in- Bolsa del Pacífico, de San 
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Francisco (California), 
manifestó que el derrumbe 
de Wall Street se debió a 
personas “ inexpertas”, pe¬ 
ro también a la influencia 
de “máquinas inhumanas”. 
Las computadoras escapa¬ 
ron a todo control humano 
y siguieron realizando 
compras o ventas de accio¬ 
nes. 

La ola de críticas, en el ám¬ 
bito financiero, estaba diri¬ 
gida contra los programas 
que poseen las grandes ins¬ 
tituciones Anacieras de los 
Estados Unidos. 


BANCO DE 
DATOS 


guientes características: 
monocromático de fósforo 
verde, tubo de alta resolu¬ 
ción de 14 pulgadas, gabi¬ 
nete plástico de alto impac¬ 
to, 40/ 80 columnas, soni¬ 
do, controles de volumen, 
contraste y brillo, control 
vertical/ horizontal auto¬ 
mático, ancho de banda: 20 
Mhz, frecuencia de barrido 
horizontal: 15625 Khz, 
frecuencia de barrido verti¬ 
cal: 50 Hz, caracteres por 
pantalla: 2000 (80 colum¬ 
nas por 25 líneas), tensión: 
220v y consumo: 30 V.A.. 


mentados se firmó in con¬ 
venio con la empresa Tele¬ 
mática, fabricante de las 
computadoras MSX. 


CURSOS 


ción, introducción al BA¬ 
SIC. 

Para más datos dirigirse a 
Maipú 267,7' piso. Capital, 
Tel. 40-1799. 


ESTABILIZA- 





UNISYS 


La Fundación de Investiga¬ 
ciones Económicas Lati¬ 
noamericanas (FIEL) tiene 
una base de datos con más 
de 4000 series con infor¬ 
mación sobre variables e- 
conómicas. 

SISCOTEL S.A. ofrece la 
posibilidad de conectarse 
con FIEL a través de Delp¬ 
hi, desde las sección ECO¬ 
NOMIA. 


MONITORES 


La firma Ordenadores 
Compatibles S.A. comer¬ 
cializa el monitor Datavi- 
sión de fabricación nacio¬ 
nal. El mismo tiene las si¬ 


cargo, una serie de comple¬ 
tas informaciones. 

El servicio, inaugurado por 
el presidente del ACA, Cé¬ 
sar C. Carman fue imple- 


E1 Centro de Desarrollo 
Profesional de UNISYS 
desarrollará durante el ve¬ 
rano una completa gama de 
cursos, entre los que inclu¬ 
ye los de Iniciación en In¬ 
formática. 

Los cursos a dictar son los 
siguientes: Introducción a 
la Informática, Fundamen¬ 
tos en Diagramación, Dia- 
gramación Lógica, Comu¬ 
nicación de datos para 
PC’s. También se dictarán 
cursos, sobre lenguajes: 
Cobol, C, Pascal introduc¬ 


lares. 

La nueva empresa ocupará 
alrededor de 200 personas, 
más de la mitad serán pro¬ 
fesionales y técnicos. Entre 
los proyectos de IDAT fi¬ 
gura la exportación del 
20% de su producción 


DOR 


La empresa SUIK acaba de 
presentar su nuevo estabili¬ 
zador ininterrumpido de 
tensión para Commodore 
64/128 y PC. 

El equipo brinda tres pres¬ 
taciones: filtro de lútea, es¬ 
tabilizador y alimentación 
ininterrumpida. 

Con este nuevo estabiliza¬ 
dor ininterrumpido pode¬ 
mos seguir trabajando aun¬ 
que se produzca un corte de 
energía eléctrica. Además 
protegemos a nuestra com¬ 
putadora de las variaciones 
de tensión. 

Este estabilizador ininte¬ 
rrumpido será distribuido 
por la empresa MQA. 


INDUSTRIA 


ACAMATICA 


La Escuela 
de Infor¬ 
mática de 
la Funda¬ 
ción Banco 
de Boston 
organizará 
una serie 
de cursos de verano. 

Los cursos tratarán de lo si¬ 
guiente: introducción a la 


El Automóvil Club Argen¬ 
tino puso en marcha su nue¬ 
vo banco de datos llamado 
ACAMATICA. 

Este nuevo banco brindará 
a los socios del ACA, sin 


computación, Lotus 1-2-3 
versión 2 y dB ASE III Plus 
General. 

Para mayor información 
dirigirse a Avda. R. Sáenz 
Peña 567,8 B piso, Capital, 
Tel. 34-8801, int. 2612 y 
2276, de 10 a 18 horas. 


INFORMATICA 

La nueva empresa IDAT 
(Industria de Alta Tecnolo- 
gíá) surge con el respaldo 
de UNISYS y de la empre¬ 
sa local TTI S.A.. 

IDAT fabricará en la pro¬ 
vincia de Córdoba super- 
micro-computadoras mul- 
tiusuarios y multiárea. 

La inversión de la obra ron¬ 
da en los 14 millones de dó¬ 




























AHORA, 

EN EL DIAL DE 

FRECUENCIA 

MODULADA 

HAY UNA NUEVA 
OPCION: 


CORRESPONSALES 


W58S^ 

Bytes del interior 

Chubut, Sarmiento 



armiento 
está a 150 
kilómetros 
hacia el o- 
este de Co¬ 
modoro Rivadavia, Aun¬ 
que cuenta con unos 8.000 
habitantes, los adolescen¬ 
tes sólo disponen de un ba¬ 
chillerato y una escuela 
técnica agraria para prose¬ 
guir sus estudios secunda¬ 
rios. Los alumnos que op¬ 
taron por el bachiller con¬ 
curren al Instituto Gober¬ 
nador Fontana (dependien¬ 
te de SNEP), y hoy se ha¬ 
llan aventajados, dado que 
éste es el primer estable¬ 
cimiento de Sarmiento en 
donde se utiliza la compu¬ 
tadora como un instrumen¬ 
to más en el proceso ense¬ 
ñanza-aprendizaje. 

La Rectora de dicho Insti¬ 
tuto, Escribana Ada Cora 
Frey de Freytes, junto con 
los padres de familia, tra¬ 
bajaron duro para concre¬ 
tar el comienzo de esta ex¬ 
periencia en la Escuela. 
Adquirieron tres computa¬ 


doras TALENT-MSX, una 
disquetera TALENT, un 
TV color, dos TV blanco y 
negro; además un papá do¬ 
nó una computadora Com- 
modore 128 equipada en 
forma completa y también 
se contó con una computa¬ 
dora TEXAS INSTRU¬ 
MENTS 99/4A. 

A grandes rasgos en nues¬ 
tra primera incursión nos i- 
niciamos en el lenguaje 
BASIC ; esto nos permitió 
poder trabajar también con 
el procesador de palabra, 
con una base de datos y 
planilla electrónica, espe¬ 
cialmente en los cursos su¬ 
periores. Con la llegada de 
algunos programas educa¬ 
tivos, profesores de dife¬ 
rentes asignaturas comen¬ 
zaron a utilizar a la compu¬ 
tadora como un nuevo re¬ 
curso didáctico en sus cla¬ 
ses. Como todo docente ya 
experimentado en este te¬ 
ma, pienso que con el sur¬ 
gimiento de más progra¬ 
mas educativos y utilita¬ 
rios, poco a poco podremos 


colocar a la computadora 
en un lugar de privilegio en 
el aula. Dentro de nuestro 
diagrama de trabajo, he¬ 
mos organizado la concre¬ 
ción y realización del pe¬ 
riódico escolar para el cur¬ 
so lectivo de 1988. En el 87 
aprendimos el manejo y u- 
so del procesador de pala¬ 
bra y en el 88 pondremos en 
práctica nuestros conoci¬ 
mientos. 

La idea ha surgido de un 
grupo de alumnos y la lle¬ 
varemos a la práctica con el 
asesoramiento de la docen¬ 
te de Lengua, especialmen¬ 
te en el área de la redacción. 
En el área de los conteni¬ 
dos, los alumnos guiados 
por los docentes específi¬ 
cos, investigarán, seleccio¬ 
narán y organizarán conte¬ 
nidos, conceptos y material 
de diferente tipo. 

Quizás, para hacer un ar¬ 
tículo más sensacionalista, 
tendría que haber comen¬ 
zado contándoles que la 
mayoría de estos adoles¬ 
centes no habían tenido an¬ 



tes ningún contacto con u- 
na computadora, que tení¬ 
an temor de presionar la 
primera tecla y que, mara¬ 
villados , admiraban sus lo¬ 
gros frente a la pantalla. 
Muy importante es ver que 
adolescentes que habitan 
nuestro sur hoy pueden in¬ 
teractuar con una computa¬ 
dora y que, concretamente 
nosotros, los docentes, los 
podemos preparar para la 
sociedad que los está espe¬ 
rando. 

Con tanto entusiasmo se 
sumergieron estos jóvenes 
en el mundo de la Informá¬ 
tica que ya han producido 
una especie de contacto, y 
una gran cantidad de perso¬ 
nas adultas hoy quieren 
también realizar sus prime¬ 
ros pasos frente a la compu¬ 
tadora y así poder coloca¬ 
rla en un lugar privilegiado 
en su pequeña empresa, 
chacra, consultorio, nego¬ 
cio o entidad bancaria. 

Me gustaría, como docente 
que reside en estas tierras 
del sur, dejarles una inquie¬ 
tud: ojalá alguna vez pue¬ 
dan conocer nuestra Pata- 
gonia, por cierto, bastante 
olvidada 

N. Duran Xargay De 
González 
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LA FRECUENCIA MODULADA 
ESTEREOFONICA DE RADIO 
CONTINENTAL, QUE PROPONE 
LA MEJOR MUSICA DE HOY, 
NACIONAL E INTERNACIONAL 

Y ADFMAS 

TODA LA COMUNICACION 
CON SUS OYENTES. 



SOFT NUEVOS 


HEAD O VER HE- 
ELS 

Comp.: MSX- 
Spectrum 
Ditrib.: Microbyte 

Un espía del planeta Free- 
dom fue capturado en el 


tivos. 

-Mundo de los libros: el 
emperador es un lector fa¬ 
nático. Por esta razón con¬ 
virtió a todo el planeta en u- 
na gigantesca biblioteca 
con tomos sobre el Oeste. 
Debido a la censura im¬ 
puesta por las autoridades, 
los libros solo pueden ser 
leídos por los funcionarios 



imperio de Blacktooth. 
Este espía está formado ex¬ 
trañamente por dos anima¬ 
litos: Head y Heels. Ambos 
se encuentran encerrados 
en celdas separadas. En las 
mismas hay un equipo de 
gimnasia, y una escalera 
por la que Head tiene que a- 
prender a subir. 

Nuestra misión es conse¬ 
guir rescatar a ambos de la 
prisión y llevarlos al mer¬ 
cado para que vuelvan a u- 
nirse. 

Una vez juntos, hay que 
transportarlos hasta la Sede 
de Moonbase. Aquí tene¬ 
mos que elegir entre hacer 
regresar a Head y Heels a 
Freedom o llevarlos a otra 
colonia a buscar las coro¬ 
nas perdidas. Hay cuatro 
misteriosos planetas adon¬ 
de pueden ir Head y Heels; 
daremos algunas caracterí- 
ticas importantes sobre es¬ 
tos: 

-Penitentiary: aquí hay va¬ 
rias personas encarceladas, 
es un planeta muy monta¬ 
ñoso donde es necesario sa¬ 
ber escalar. 

-Safari: planeta densamen¬ 
te cubierto de plantas y 
donde se caza tal vez en ex¬ 
ceso. Uno de los mayores 
peligros del mismo son las 
trampas puestas por los na¬ 


del Estado. 

-Blacktooth: gran luna con 
tres estaciones espaciales. 
La más grande es el centro 
de teletransporte hacia los 
demás planetas. Head po¬ 
see abundantes genes con 
propiedades voladoras. Por 
esto tiene unas alas que le 
permiten elevarse hasta el 
doble de su altura. En cam¬ 
bio, las habilidades de He¬ 
els son los grandes saltos y 
la carrera veloz. Al juntarse 
ambos animales, dispon¬ 
dremos de las ventajas de 
ambas capacidades al mis¬ 
mo tiempo. 

En las diferentes habitacio¬ 
nes de la extensa cárcel 
donde se encuentran Head 
y Heels nos tropezaremos 
con extraños objetos: 
-donuts: hay pocas bande¬ 
jas con “donuts” (masitas), 
y es conveniente no desper¬ 
diciarlas para poder usarlas 
cuando necesitemos defen¬ 
demos. Head es el único 
que puede recoger las ban¬ 
dejas de “donuts”. 
-conejos blancos: aumen¬ 
tan los poderes, y hay cua¬ 
tro tipos; vidas extras, píl¬ 
doras de hierro que nos ha¬ 
cen invulnerables, salto 
más alto (solo pasa Heels), 
y correr más rápido (para 
Head). 


-coronas: al ir recogiendo 
las coronas aparecerá en 
pantalla un dibujo de cinco 
planetas, cada uno con su 
respectiva corona La coro¬ 
na recogida estará remar¬ 
cada con un color brillante, 
-hush puppies: son criatu¬ 
ras durmientes. Las pode¬ 
mos aprovechar usándolas 
como mesas o ladrillos pa¬ 
ra construir edificios, 
-trompeta: sirve para dis¬ 
parar las donuts a los mons¬ 
truos que nos atacan. Solo 
puede ser usada por Head. 
-interruptores: se utilizan 
para desactivar algunos ob¬ 
jetos. Si apagamos a un 
monstruo, lo detendremos, 
pero tocarlo será mortal, 
-bolso: se usa para llevar 
pequeños objetos. Heels 
necesita encontrarlo al co¬ 
mienzo del juego. Para re¬ 
coger un objeto, hay que 
pararse sobre él y pulsar la 
tecla de LLEVAR. Los ob¬ 
jetos no se pueden abando¬ 
nar en las puertas, 
-teletransporte: al poner¬ 
nos encima de uno, se acti¬ 
va. Cuidado porque no to¬ 
dos los teletransportadores 
son de ida y vuelta, 
-muelles: sirven para ayu¬ 
damos a saltar más alto, 
-rodillos: son para avanzar, 
-el guardián del empera¬ 
dor: bloquea la entrada de 
su amo y muy pocos se a- 
treven a esquivarlo. 

Head y Heels forman un e- 
quipo y en algún momento 
tenemos que tratar de jun¬ 
tarlos utilizando 
la llave de inter¬ 
cambio. 

Al principio del 
juego es impor¬ 
tante que Head re¬ 
coja la trompeta y 
Heels el bolso pa¬ 
ra tener la posibi¬ 
lidad de llegar al 
final. 

Cuanto más nos 
asomemos a la o- 
rilla de un ladrillo, más lar¬ 
go será el salto que demos. 
Debemos tener en cuenta 
que solo Head puede dispa¬ 
rar mientras que Heels está 
capacitado solamente para 
llevar cosas. 


Si entramos a una habita¬ 
ción medio confusa, la for¬ 
ma de esclarecerla es saltar 
y volver a entrar hasta de¬ 
fecar cuál es el truco. 

Los gráficos de este entre¬ 
tenimiento son excelentes. 
A lo largo de las diferentes 
pantallas nos encontrare¬ 
mos con atrapantes sorpre¬ 
sas que significarán un de¬ 
safío a nuestra habilidad. 


AVENTURASEN 
EL CIRCO 
C.omp.: MSX 
Distrib.: Systemac 


Este juego educativo dise¬ 
ñado para niños a partir de 
los 4 años permite que aho¬ 
ra hasta el integrante menor 
de la familia se incorpore a 
la cola para hacer uso de la 
computadora. 

Este soft, pedagógicamen¬ 
te preparado, puede ser uti¬ 
lizado por un pequeño que 
no sepa leer ni escribir. El 
manejo del mismo es tan 
sencillo que el niño inme¬ 
diatamente aprenderá a do¬ 
minarlo. 

Lógicamente, es conve¬ 
niente que realice las pri¬ 
meras experiencias con un 
mayor a su lado para salvar 
cualquier consulta. 

El objetivo es que el usua¬ 
rio aprenda a diferenciar 
los colores y abstraiga la 
noción del color como un a- 
tributo de un objeto. 



AVENTURAS 


Cuando se llegue a este ob¬ 
jetivo, el pequeño estará 
capacitado para agrupar los 
objetos con un color en co¬ 
mún. 

El juego consiste en llevar 
una brocha hasta un objeto 
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del mismo color usando el 
teclado. 

Al pulsar la barra espacia- 
dora, se comprueba si la ta¬ 
rea fue correcta, entonces 
aparece una pulga que se 
suma a las anteriores. De lo 
contrario, una de las pulgas 
obtenidas desaparece. 

Al conseguir sumar cuatro 
pulgas, el niño pasa a un 


de los árboles que se en¬ 
cuentran dispersos por las 
colinas. Una vez que nues¬ 
tra energía sea suficiente 
(como mínimo tres árbo¬ 
les), tenemos que proyec¬ 
tarla fuera de nuestro cuer¬ 
po de robot a algo tangible, 
como a otro árbol, roca o un 
nuevo robot. De esta mane¬ 
ra nos teletransportaremos 



juego recreativo. 

Este entretenimiento con¬ 
siste en ayudar al payaso 
Plín Plín a saltar las pulgas 
que se le aproximen. Por 
cada pulga esquivada se 
obtiene un caramelo. A los 
cuatro caramelos recolec¬ 
tados, vuelve a comenzar el 
juego pero con un grado de 
dificultad superior. 


THE SENTINEL 
Comp.: Spectrum - 
DC-64 

Distrib.: Valente 

Parados al borde de un a- 
cantilado, nos encontra¬ 
mos en peligro. 

Podemos rotar en nuestra 
posición, elevar o bajar la 
cabeza y veremos árboles y 
muchas montañas. 

La energía que podemos 
sustraer de los árboles es 
nuestra vital necesidad. 

La acción se desarrolla 
dentro de 10.000 escena¬ 
rios graficados maravillo¬ 
samente en tres dimensio¬ 
nes. 

Nuestro destructor es Sen- 
tinel quien con sólo mirar¬ 
nos consume nuestra ener¬ 
gía hasta matamos. 
Debemos comenzar por 
absorber bastante energía 


a ese nuevo objeto. Es así 
como conseguiremos mo¬ 
vemos hasta llegar al mal¬ 
vado Sentinel. 

Como la cantidad de ener¬ 
gía en cada nivel es cons¬ 
tante y no demasiado abun¬ 
dante, cuando nos tele- 
transportemos a un nuevo 
robot, será necesario absor- 
ver la energía del que aca¬ 
bamos de dejar. 

La única forma de conse¬ 
guir absorber la energía de 
cualquier objeto (incluso 
de Sentinel) es viendo el 
cuadrado donde está apo¬ 
yado (algunas secciones 
del piso están divididas co¬ 
mo en baldosas cuadradas). 
Es decir que no basta ver la 
parte superior de un árbol 
para lograrlo. 

El secreto es conseguir ga¬ 
nar mayor altura. 

Una vez que hayamos con¬ 
seguido destruir a Sentinel 
y ubicamos en su lugar, pa¬ 
saremos de nivel. Cuanto 
menor sea la energía que u- 
semos para destruir a Senti¬ 
nel, mayor será el número 
de niveles que avazaremos. 
Cuando pasemos de nivel 
se nos mostrará un código. 
Esta clave es la llave para 
poder ingresar al nivel en 
cualquier otro momen to, 
sin necesidad de pasar por 


los anteriores. 

Cuando la ventana del ra¬ 
dar (zona superior derecha 
de la pantalla) se ponga bo¬ 
rrosa, ¡cuidado!, Sentinel 
nos estará observando y 
tendremos solo 10 segun¬ 
dos para que comiece a sa¬ 
camos energía. La tecla H 
(hiperespacio) nos salvará 
en los momentos más difí¬ 
ciles trasladándonos a otro 
lugar. Pero esto trae una 
desventaja: consume mu- 
che energía y podremos 
explotar si acudimos a esta 
opción sin la potencia sufi¬ 
ciente. 

Como vimos, se trata de un 
juego que tiene muchos pa¬ 
sos y consideraciones hasta 
llegar a la meta. Costará un 
poco tomarle la mano y en¬ 
tender su lógica, pero des¬ 
pués de algunos partidos 
nos sentiremos atraídos por 
descifrar sus traeos. 


SISTEMA DE 
ADMINISTRA¬ 
CION DE 
VIDEO-CLUB 

Comp.: MSX 
Distrib.: Logiciel 

Administrar un video-club 
no es del todo complicado, 
pero se necesitan demasia¬ 
das fichas para llevar un 
control de las películas y de 
los clientes. Cada vez se 
ven menos administrado¬ 
ras tras un mostrador de¬ 
sesperadas por encontrar la 
ficha de la película y del 
cliente en enormes fiche¬ 
ros. Muchos de estos loca¬ 
les ya están incorporando 
computadoras que realizan 
estas tareas. 

Entre todas las ventajas que 
tiene aplicar la computa¬ 
ción en este tipo de nego¬ 
cios, hay dos que se desta¬ 
can: larápidez y la posibili¬ 
dad de tener una completa 
información de la adminis¬ 
tración. 

Exploremos un poco las 
funciones de este soff 
-Tratamiento de clientes: 
permite ingresar nuevos 
clientes, modificar los da- 


SOFT NUEVOS 


tos o anularlos de la lista. 
-Tratamiento de películas: 
contiene el código interno 
de la película, el título, pro¬ 
tagonistas, director, géne¬ 
ro, calificación, duración, 
cantidad disponible y algu¬ 
nas observaciones. 

-Tareas del día: ingresar el 
alquiler o devolución de 
películas, imprimir la fecha 
de cumpleaños de los clien¬ 
tes en la fecha deseada, lis¬ 
tado de los últimos títulos 
ingresados, listado de deu¬ 
dores de películas o de 
clientes que no están al dí- 
a en el pago de los alquile¬ 
res, modificar el precio de 
las listas (de24,48 o 72 hs.) 
y, finalmente, hacer las re¬ 
servas de películas para los 
clientes. 

-Sistema comercial: acepta 
los ingresos en concepto de 
alquiler de películas, efec¬ 
túa los egresos de todo tipo 
de gastos relativos al nego¬ 
cio, realiza el cierre de la 
caja junto al listado de las 
facturas recibidas, asienta 
los cheques emitidos sin a- 
fecta r al cierre de caja y. 



por último, lleva el control 
de los proveedores. 
-Depuración de archivos: 
esta tarea sirve para gene¬ 
rar mayor espacio de traba¬ 
jo en los archivos. Una a- 
claración importante sobre 
el manejo de este soft (y 
que no se encuentra en el 
manual): tanto los nombres 
de las películas como el de 
los clientes deben tener la 
primera letra con mayúscu¬ 
la para ser aceptados por la 
computadora. No hay res¬ 
tricciones sobre las si¬ 
guientes letras. 
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MS-DOS: 

Guía Fácil 

Comp.: MSX y PC 
Autores: I.Ramon- 
P.Buera-V.Trlgo 
Editor: Paraninfo S.A. 
Distrib.: Cúspide 



MS-DOS 



El libro desmenuza al po¬ 
deroso sistema operativo 
MS-DOS que usan algunos 
equipos , como las MSX y 
ciertas PC. 

Al tratarse de una guía fá¬ 
cil, se encuentran exclusi¬ 
vamente los temas princi¬ 
pales como manejo de dis¬ 
cos flexibles. 

Antes de estudiar con de¬ 
tenimiento las posibilida¬ 
des que ofrece el MS-DOS, 
a modo de introducción, se 
ve brevemente el desarro¬ 
llo histórico de los sistemas 
operativos y la estructura 
física de los discos. 

Nunca está demás releer 
varias veces los consejos 
que los autores ofrecen a 
los lectores para el cuidado 
de los discos flexibles. Un 
buen mantenimiento de es¬ 
tos medios de almacena¬ 
miento evitará que perda¬ 
mos información valiosa 
grabada en ellos. 

Los primeros pasos por el 
MS-DOS consisten en pre¬ 
parar y copiar discos. En 
síntesis, esta guía tiene los 


trucos necesarios para po¬ 
der sacarle el jugo al MS- 
DOS ayudándonos con re¬ 
cuadros de referencia rápi¬ 
da. Estos cuadros contie¬ 
nen la síntesis de lo expli¬ 
cado en ese capítulo. 

Para comprender sin obstá¬ 
culos las explicaciones de 
esta guía, cada sentencia 
está ejemplificada de ma¬ 
nera sencilla. Y para cerrar 
este comentario, agregare¬ 
mos que al final del manual 
se encuentran especifica¬ 
das las funciones de las te¬ 
clas especiales en el MS- 
DOS. 

EL SISTEMA 
OPERATIVO 
GEOS 

Autores: Kerkloh- 
Tornsdorf 
Comp.: Drean 
Commodore 64/C 
Editor: Ferre Moret 
S.A. 

Distrib.: Data Becker 


Kerkloh - Tornsdorf 



El GEOS (Graphic Envi- 
ronment Operating Sys¬ 
tem) es un sistema operati¬ 
vo sencillo de operar, con 
pantallas donde las opcio¬ 
nes están representadas por 
gráficos. La mayoría de los 
usuarios de este sistema o- 
perativo desconocen mu¬ 
chas de las posibilidades 
que brinda. 

En este libro podrán en¬ 
contrar muchos secretos 
para aprovechar a fondo el 


sistema. Hasta le puede ser 
muy útil a quien no conoz¬ 
ca bien la C-64, para medir 
las capacidades de esta 
computadora. 

Y también, si nos encontra¬ 
mos en el escalón de pro¬ 
gramadores con deseos de 
efectuar un trabajo de a- 
daptación de nuestros pro¬ 
gramas a GEOS, estamos 
frente al libro adecuado. 
Por medio de las numero¬ 
sas ilustraciones, aun los 
que no tengan un GEOS 
podrán entender cómo es 
su funcionamiento. 
Gradualmente comprende¬ 
remos el manejo de disque- 
tes, para qué sirve el DESK 
TOP, la aplicación del GE- 
OPAINT (utilitario gráfi¬ 
co) y del GEOWRITE 
(procesador de textos). 
Otra sección interesante de 
este libro es la explicación 
detallada de las rutinas 
dentro del GEOS. 

En el último capítulo, y co¬ 
mo aplicación de todos los 
conceptos vistos, veremos 
paso a paso cómo se cons¬ 
truye un simulador, cuál es 
la técnica de creación de 
ventanas y otros temas a- 
vanzados. 

En síntesis, este libro es pa¬ 
ra que cualquier usuario de 
una C-64 que quiera apren¬ 
der los secretos del GEOS 
lo tenga al lado de su com¬ 
putadora. 

ZX SPECTRUM- 
EL MANUAL 
ESCOLAR 

Autor: Voss 
Comp.: Spectrum 
Editor: Ferre 
Moret S.A. 

Distrib.: Dta Becker 


Este manual se propone 
mostrar una cara poco co¬ 
nocida de las computado¬ 
ras. Basándose en que estas 
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UN LIBRO DATA BECKER 

EDITADO POR FERRE MORET. S.A. 


pueden aplicarse a diversas 
funciones, hace hincapié 
en una de ellas: la compu¬ 
tadora como complemento 
para la enseñanza. 

En este libro están plantea¬ 
dos y resueltos los princi¬ 
pales temas que se estudian 
en el secundario. Por ejem¬ 
plo, el teorema de Pitágo- 
ras, las progresiones geo¬ 
métricas y ecuaciones de 
segundo grado para mate¬ 
máticas, los verbos irregu¬ 
lares y vocabulario inglés y 
francés para castellano, 
contaminación ambiental 
para biología, movimiento 
pendular y reproducción 
óptica para física, desarro¬ 
llo de la población para ge¬ 
ografía, y cálculo de intere¬ 
ses junto a amortizaciones 
de hipotecas para contabi¬ 
lidad. 

Estos son solo algunos 
puntos de la larga lista que 
abarca este libro. 

Con este método de pro¬ 
gramar para resolver pro¬ 
blemas que se estudian en 
la secundaria, el autor con¬ 
sigue indirectamente ense¬ 
ñar dos cosas: programar 
en BASIC y reforzar los co¬ 
nocimientos del tema que 
se está resolviendo a través 
del programa. 

Antes de comenzar a pro¬ 
gramar, el autor enseña los 
pasos que se deben seguir: 
primero la presentación del 
problema, segundo el aná¬ 
lisis del mismo, tercero una 
forma de solución rápida 
por medio del diagrama de 

































flujo y, por último, el pro¬ 
grama en sí. 

A este completo manual es¬ 
colar-informático le puede 
sacar también provecho un 
adolescente sin demasiada 
experiencia en computa¬ 
ción, pero con ganas de a- 
prender. 

LOTUS 1-2-3 

Autor: J.M.AIonso 
Comp.: PC 

Editor: Paraninfo S.A. 





j.m. nomo 


Este libro ha sido escrito 
para ayudar a poseedores 
del “1-2-3 de Lotus Deve- 
lopment Corporation” o 
para informar al usuario en 
general del funcionamien¬ 
to y aplicaciones de esta 
planilla electrónica dispo¬ 
nible para equipos PC. 

El autor supone que el lec¬ 
tor no tiene conocimientos 
previos de lo que es una ho¬ 
ja de cálculo y de cómo uti¬ 
lizarla. 

Los lectores que tienen una 
idea de como manejar este 
tipo de utilitarios pueden 
saltearse los primeros capí¬ 
tulos. Este texto no detalla 
los comandos del LOTUS 
porque para eso se supone 
que existe el manual del u- 
suario del soft. En cambio, 
trata de desarrollar las po¬ 
tenciales aplicaciones del 
LOTUS. 

Para ampliar las utilidades 
de este programa, aquí en¬ 


contraremos varias ideas y 
trucos. De esta manera el 
LOTUS podrá ser utilizado 
como una herramienta en 
muchos otros campos y no 
solo en la gestión y planifi¬ 
cación como es habitual. 
En el segundo capítulo se 
ve el manejo básico de una 
hoja electrónica de cálculo; 
en el tercero se profundiza 
en el diseño y planificación 


de las planillas agregando 
gráficos y tablas de datos: 
en el siguiente se abordan 
temas más avanzados co¬ 
mo la impresión , ordena¬ 
miento, almacenamiento y 
recuperación de datos. Los 
dos últimos capítulos (los 
más complejos) están refe¬ 
ridos a problemas matemá¬ 
ticos y estadísticos aplica- 
A pesar del completo 


LIBROS 


contenido del libro, no 
podemos asegurar que 
sustituya a los manuales 
que acompañan al Lotus, 
sino que es una opción 
aconsejable para ayudar al 
usuario a manejar el soft 
con soltura. * 


una mesa tan inteligente 
como su computadora. 



La tapa aerifica El plano deslizable 

protege el equipo permite tomar 

y se''esconde'' distancia de 

mientras se la pantalla sin mover 

usa la computadora, la consola 
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Fíjese: 
•Nivel superior 
para televisor, 
monitor e impresora. 

• Plano deslizable 
(Tirée)para teclado, drive 
o datasette y accesorios. 


Estante inferior 
p diskette, Joystiks, etc 

tr ! sero para 

r, V/ V transformadores. 
j|ji 1 ^A\y|ü # ^ aso P ara cables, etc. 

opcionalmente 
Ruedas para deslizar la mesa. 

• Tapa acrílica de protección. 

• Llave de seguridad. 

• Canasto desmontable para resma 
de papel continuo. 
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H ARD TEST 


Los Hard 
a prueba 


INTERFASE 
RS 232 


COMPUTADORA: 
SPECTRUM/ TK 90 
FABRICANTE: 

VEL ARGENTINA 


-diste periférico para la Spectrum 
nos permite comunicar a nuestra 
computadora con equipos serie, tales 
como impresoras, módems, grabado¬ 
res de EPROM, y también con otras 
computadoras. 

La ventaja de la intefase RS 232 es 
que permite comunicaciones a gran 
distancia, ya que se trabaja con valo¬ 
res altos de tensión para lograr inmu¬ 
nidad al ruido. 

La interfase se conecta al port trasero 
de expansión de la máquina, y junto 
con ella se suministra un casete que 
tiene dos programas distintos de co¬ 
municación. 

El primero de ellos nos permite co¬ 
mandar una impresora serie con nues¬ 
tra Spectrum, mientras que el segun¬ 
do esta dedicado a la comunicación 
entre computadoras. 

Para manejar una impresora a través 
de las instrucciones que ya existen en 
el teclado, podemos utilizar las ya co¬ 
nocidas LLIST y LPRINT. 

Para copiar pantallas a la impresora, 
se utiliza la instrucción LPRINT 
CHR$ 1. 

En el modo de comunicación con otra 
computadora, la Spectrum se trans¬ 
forma en una terminal de datos. 

La interfase tiene dos ports asignados 
para el funcionamiento de la misma. 
El primero está localizado en la direc¬ 
ción 119, y se utiliza para el control de 
la interfase. 

El segundo está en la dirección 115, y 
es usado para enviar y recibir datos. 
En cuanto al hardware de la interfase, 
podemos decir que el corazón de la 
misma es un chip UART, que le da 
gran flexibilidad. Por medio del mis¬ 
mo, podemos seleccionar la cantidad 
de bits de parada, largo de palabra, 
tres velocidades de transmisión por 
software y 9 más por hardware. 

En cuanto a los cables de conexión de 



la RS 232, encontramos dos para co¬ 
municación de datos, el TXD que los 
transmite y el RXD que recibe. Ade¬ 
más de estas líneas, hay 4 más que son 
utilizadas para control, que son las 
DTR que avisa que la terminal de da¬ 
tos está lista, la DSR que recibe esta 
señal del otro equipo, RST que avisa 
que el equipo está listo para recibir, y 
CTS que recibe esta señal para leer el 
dato que se transmite. 

Las características técnicas de la in¬ 
terfase son las siguientes: 


BAUD RATE 


STANDARD 

75-300-4800 

POR HARD 

150-600-9600 
37,5-150-2400 
18,7-75 -1200 

PUERTAS DE USO: 

119 CONTROL 


115 DATOS 

BITS DE PARADA: 

1-1,5-2 

LARGO BYTES: 

5-6-7-8 

PARIDAD: 

PAR-IMPAR - 


NO 

CONECTOR DE SALIDA: DB-25 


MACHO 

PROTOCOLO SAUDA: DTE 


IMPRESORA 
COMMODORE 
MPS 1000 


COMPUTADORA: TODAS 
LAS COMMODORE O 
CUALQUIERA CON PORT 
PARALELO TIPO IBM 


La alternativa de comprar una impre¬ 
sora para una máquina Commodore 


siempre fue un poco comprometida, 
ya que debido al bus serie de transmi¬ 
sión de datos, estas impresoras no 
pueden ser conectadas a otras compu¬ 
tadoras que no sean de esta marca. 
Este problema hacía que la impresora 
tuviera que ser “commodoriana” has¬ 
ta el fin , sin posibilidades de pasarse 
a otro equipo. 

Para alegría de los poseedores de má¬ 
quinas Commodore, esta dificultad 
llegó a su fin con la aparición de la 
MPS-1000. 

Una de las características salientes de 
la misma es que permite tener dos im¬ 
presoras en una. 

La primera es una auténtica Commo¬ 
dore compatible, que se conecta me¬ 
diante un cable al bus serie de la má¬ 
quina. 

En este modo de trabajo, la impreso¬ 
ra mantiene todo el juego de caracte¬ 
res gráficos de la línea Commodore, 
en los distintos tipos de impresión. 
La segunda impresora que tenemos 
en el mismo embalaje es una “IBM 
compatible”, ya que por medio de un 
conector tipo Centronics podemos ol¬ 
vidamos de los protocolos de Com¬ 
modore y conectar esta impresora a 
cualquier computadora que posea una 
intefase paralelo. 

En este modo de trabajo, el set de ca¬ 
racteres se cambia por el de IBM, de 
modo que no hay ningún tipo de pro¬ 
blemas de compatibilidad con los 
procesadores de textos de estas má¬ 
quinas. 

En este juego de caracteres tenemos 
también acentos, eñe, y signos de in¬ 
terrogación y admiración para poder 
escribir correctamente en español. 
Para seleccionar entre un modo y otro 
de trabajo, se debe accionar un peque¬ 
ño interruptor que se encuentra loca¬ 
lizado en la parte posterior de la im¬ 
presora. 

Una vez que este interruptor es activa¬ 
do, el modo Commodore queda des¬ 
habilitado, y la interfase serie se inac¬ 
tiva. En lo que hace a las característi¬ 
cas de impresión, podemos decir que 
esta máquina se encuentra entre las 
mejores de la línea Commodore. 

Su velocidad de impresión es de 100 
caracteres por segundo como máxi¬ 
mo. Si bien esto es un poco menor que 
los 120 de la MPS-1200, esta impre¬ 
sora da la apariencia de ser un poco 
más fuerte que la 1200. 
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Por otra parte, esta velocidad de im¬ 
presión la hace superior a la MPS 803, 
el modelo anterior de Commodore. 
En cuanto a los tipos de letra, debe¬ 
mos distinguir entre los dos modos de 
funcionamiento, ya que el modo IBM 
es ligeramente mas completo que el 
Commodore. 

Si utilizamos la impresora bajo la nor¬ 
ma Commodore-serie, entonces ten¬ 
dremos las siguientes posibilidades: 
-Modo ampliado: cada carácter ocupa 
el doble del espacio normal. Se con¬ 
trola mediante el código 14. 

-Modo de alta calidad de letra (NLQ): 
en este modo la máquina realiza una 
doble pasada por cada línea de texto. 
De esta forma se eliminan los espa¬ 
cios entre los puntos que forman los 
caracteres, y el texto tiene la aparien¬ 
cia de haber sido hecho por una má¬ 
quina de escribir. 

Para seleccionar este modo de trabajo 
existen dos métodos. El primero es 
por medio del cáracter del control 
31,el cual habilita al modo NLQ, y el 
carácter 159, que lo deshabilita. El se¬ 
gundo es más sencillo, aunque algo 
más incómodo, ya que se trata de ac¬ 
cionar uno de los interruptores que es¬ 
tán en la parte posterior de la máqui¬ 
na. Hasta que este interruptor vuelva 
a su posición original, la máquina im¬ 
primirá en modo NLQ. Un último de¬ 
talle a tener en cuenta en este modo de 
trabajo es que la velocidad de im¬ 
presión decae bruscamente de 100 ca¬ 
racteres por segundo a 20 (5 veces 
más lento), por lo que no es una bue¬ 
na opción si estamos sacando algún 
texto de prueba 

-Modo inverso: al igual que la escri¬ 
tura inversa de la pantalla, en este mo¬ 
do la s letras quedan en blanco, mien¬ 
tras que todo el fondo está en el color 
de la cinta Para entrar en este modo se 
utiliza el carácter de control 18, y pa¬ 
ra salir, el 146. Una advertencia con 
respecto a la escritura en modo inver¬ 
so: la duración de la cinta se acorta 
considerablemente. 


-Modos gráficos, mayúsculas y mi¬ 
núsculas: seleccionados por medio 
del teclado, estos tipos de impresión 
responden a los distintos modos de 
trabajo de la C-64. 

Cuando trabajamos en modo IBM se 
agregan las siguientes opciones: 
-Modo enfatizado: se efectúan dos 
pasadas por cada línea, resaltando la 
impresión. Muy útil para cuando se 
nos está acabando la cinta, y todavía 
no compramos otra. 

-Modo agrandado-enfatizado: una 
mezcla délos dos modos, se duplica el 
ancho de la letra y se efectúa una do¬ 
ble pasada por cada renglón. 

-Modo condensado: se achican las le¬ 
tras de manera tal que entran hasta 
132 caracteres donde sólo lo hacían 
80. Este modo es muy útil ya que nos 
permite imprimir balances contables 
y tareas de ese tipo donde se necesitan 
hojas más anchas de lo común, con 
una impresora de carro angosto. 
-Modo subíndice y supraíndice: nos 
permite agregar subíndices al texto, 
es decir ubicar un carácter al pie de o- 
tro, en un tamaño más reducido. Lo 
mismo con los supraíndices, solo que 
en este caso van arriba, como en el ca¬ 
so del 2do, etcétera. 

Nuevamente, la velocidad de impre¬ 
sión disminuye notablemente cuando 
salimos del modo de impresión están- 


dard. Este detalle 
suele ser olvidado 
por el usuario, que 
al leer “100 carac¬ 
teres por segundo” 
piensa que la im¬ 
presora siempre 
trabaja a esa velo¬ 
cidad. 

A continuación les 
ofrecemos un cua¬ 
dro que obtuvimos 
a diferentes modos 
de impresión, en 
donde se puede ver 
la disminución de 
velocidad (en mo¬ 
do IBM). 

ESTANDARD 
100 CPS 
AGRANDADO 
50 CPS 

ENFATIZADO 
50 CPS 

AGRANDADO/ENF ATIZADO 
25 CPS 

CONDENSADO 
82 CPS 

AGRANDADO/CONDENSADO 
41 CPS 
ELITE 
60 CPS 

AGRANDADO ELITE 
30 CPS 

CONDENSADO ELITE 
100 CPS 

El modo de alimentación del papel 
es tanto por tracción como por fric¬ 
ción. 

Un detalle poco práctico es que pa¬ 
ra trabajar en modo fricción se debe 
sacar el carro tractor, ya que de otra 
forma la impresora no puede pasar 
las páginas por fricción. 

Finalmente, no hay problemas en lo 
que se refiere a reposición y recarga 
de cintas, y podemos decir que se 
trata de un producto no solo fuerte y 
de buena calidad, sino además, de 
características duales. 



Centro de es ludio/ 

Infectolcqico/ 

Departamento de Informática represenatntes de: 
Compact Cambridge 

Información médica en discos láser 

Consultas: Lie. María Susana Dubra de Centeno 


AV. LAS HERAS 3169 (1425) Bs. As. 
Tel. 802-7772/41-3086 
Telex: 258 90 SOLTRA AR 





SERVICIO TECNIC0_DEC0MPUTAD0RAS 

s/AMIGA ¡ =1 — - Qz commodore 


y Compatibles 


Presupuestos a la vista srn cargo 
Fabricación de interfaces y Buffers 
Expansión de PC, AMIGA 500 y 1000 a 1Mb. y 2Mb. 
Cables, Disqueteras y Accesorios 
Tarjetas de video color para PC 256 K. 
Reparación de Discos Rígidos 10 a 80 Mb. 


RJCUMAN 458, 2* piso, oficina 5, Te: 39 7 8o04 
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Revolución telemática 


El “boom” de los boletines electrónicos parece extenderse en la Argen¬ 
tina. En este informe les presentamos a la mayoría de estos originales 
medios. Ofrecen la posibilidad de usarlos como correo , poner anuncios 
y acceder a variados datos. Basta cualquier computadora personal , un 
modem y un teléfono para ingresar a este sorprendente mundo. 



a abrumadora presen¬ 
cia de los equipos ho¬ 
gareños Commodore, 
tanto en su versión de 
64 K como en la de 128 
K, también se hace 
sentir en este reciente 
impacto que es el boom de la telemá¬ 
tica. Del total de BBS (Bulletin Board 
System) que se han instalado funda¬ 
mentalmente en estos últimos 12 me¬ 
ses, un 62% utiliza como host (equi¬ 
po anfitrión o central) a estas máqui¬ 
nas. Por razones fáciles de compren¬ 
der, los dos tercios de estas centrales 
son de 128 K y utilizan disqueteras 
1571, ya que el doble cabezal les per¬ 
mite una capacidad teórica de 340 K. 
Los pioneros en este fenómeno han 
sido Pablo Besse y Miguel Pavese, de 
Don Torcuato, que con su The Hac- 
kers BBS están en línea desde agos¬ 
to de 1985. Dos años, en este novísi¬ 
mo rubro, es toda una antigüedad. 
Después, desde marzo de 1986, viene 
el CBM Group que regentean Clau¬ 
dio Regis y Rubén Parasporo. Este 
BBS funciona las 24 horas del día, y 
representa a su homónimo de Estados 
Unidos, enlazando de ese modo a to¬ 
dos los “commodormaníacos” del 
mundo. Tiene un club de usuarios, 
Service técnico para sus socios y una 
publicación mensual, On Line. 

Una curiosidad digna de ser tenida en 
cuenta es que de todos los que están 
funcionando, sólo 3 (apenas un 14%) 
lo hacen con programas comprados. 
Ellos son el de Sport BBS, que es u- 
no de los más recientes, y los del 
CBM Group y CC BBS. En cambio, 
casi la mitad de estos diarios murales 
electrónicos corren de base a progra¬ 
mas diseñados por sus propios opera¬ 
dores. El resto, que conforma un buen 
pelotón, también tiene programas 
comprados, pero se trata de originales 
“pinchados” o a los que les han intro¬ 
ducido tal cantidad de reformas e in¬ 
novaciones que los han dejado casi a 
nuevo. 


Las singularidades en este pequeño (y 
creciente) mundo de los BBS Com¬ 
modore son varias. Desde Tetelo, al 
mando del cual está Ezequiel Glinsky 
de apenas 10 años, hasta los San¬ 
tuary , de los que ya hay dos, y que son 
una idea de Felicindo The Guarder 
Rodríguez, de profesión farmacéuti¬ 
co, preocupado sólo por utilizar esta 
vía para la difusión de temas filosófi¬ 
cos y religiosos: “Más que una base de 
datos, tiene que ser una propuesta de 
vida”, define él mismo. 

En líneas generales, casi todos se 
mueven dentro del mismo esquema. 
Los ofrecimientos son correo electró¬ 
nico, la posibilidad de poner anuncios 
de diversos tipos, y acceder a la varia¬ 
da información que traen los boleti¬ 
nes y archivos donde los datos nunca 
tienen un espectro demasiado amplio 
debido las limitaciones de almacena¬ 
miento. La aparición en Estados Uni¬ 
dos de hard disk para las Commodo¬ 
re seguramente va a animar a algún 
pionero pudiente y ahí, perspectivas y 
sistema pueden tomar otro vuelo. 

El despunte sobre las especialidades, 
es decir, la tendencia que cada día se 


va a ir marcando posiblemente más, 
en cuanto a convertir a cada BBS vir¬ 
tualmente en un GIS (Grupo de Intere¬ 
ses Similares), empieza a delinearse 
en lo que -por ejemplo- está haciendo 
Fabián Bemero con The Spirit BBS, 
volcando casi toda la información en 
línea hacia la música. A su modo, tam¬ 
bién al recién nombrado Santuary de 
Rodríguez y su otro modo, Santuary 
n, a cargo de Alejandro The WoÚ" 
Landini. 

Dentro de lo que podríamos llamar la 
“ortodoxia”, por un lado tratando de 
agrupar a los usuarios de Commodo¬ 
re y por otro abriendo posibilidades de 
comunicaciones internacionales, Ser¬ 
vice técnico, programas y demás, se 
destaca lo que viene haciendo el CBM 
Group. El resto, a medida que pase el 
tiempo, va a tener que ir definiendo 
sus roles en cuanto a si compiten para 
destacarse siendo los mejores o si, por 
el contrario, ese criterio de diferencia¬ 
ción va a empezar a darse en especia- 
lizaciones sobre muy claras franjas de 
interés. De todas maneras, el fenóme¬ 
no ya se ha echado a andar. Y las 
Commodore van en punta. 
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NOMBRE 

ACAMATICA 

ACUARIO 

ARROBA CLUB 

BADE 

TELEFONO 

801-0197/1109 

682-2408 

248-4509 

021-22055 

PROTOCOLO 

N.8,1 

N.8,1 

N.8,1 

E,8,1 

HORARIO DE 
FUNCIONAMIENTO 

TODOS LOS DIAS, 

LAS 24 HORAS 

TODOS LOS DIAS,DESDE 
LAS 22 A LAS 7 HS. 

VIERNES A LUNES 

DE 20 A 7 HORAS 


TIEMPO DE USO 
NIVELES DE ACCESO 

EXCLUSIVO 

30 MINUTOS 

NINGUNO 

30 MINUTOS 

3 


OPERADOR(ES) 

RESPONSABLE(S) 

AUTOMOVIL CLUB 
ARGENTINO 

ALBERTO LISI 

ALEXARRICHETA 


EQUIPO 

CAPACIDAD MEMORIA 
SOFTWARE USADO 

EN LINEA DESDE 

PROTOCOLOTIPO 

VELOCIDAD 

GRATUITO O PAGO 

MAIN FRAME 

SETIEMBRE 1987 

300-1200 

GRATIS PARA SOCIOS 

COMMODORE 128 

170 

HECHO ESPECIAL 

AGOST01987 

BELL 

300 

GRATIS 

COMMODORE 128 

340 K 

COMPRADO/REFORMADO 
SETIEMBRE 1987 

BELL 

300 

GRATIS 

HECHOESPECIAL 

BELL 

300 

DOMICILIO 

LOCALIDAD 

AV. LIBERTADOR 1850 
CAPITAL FEDERAL 

CAPITAL FEDERAL 

MONTEAGUDO 328 
BANFIELD 

LA PLATA 


MENU Y OPCIONES 

METEOROLOGÍA, ESTADO 
DE RUTAS, HOTELERIA, 
AUXILIO, FINANCIE RAS, 
CINES Y TEATROS, 
BIBLIOTECA Y OTRAS 
BASES DE DATOS 

CORREO ELECTRONICO, 
BOLETINES E 

INFORMACION DE INTE RES 
GENERAL 

MENSAJES Y BOLETINES 
ENTRE USUARIOS.DE 
INTERES GENERAL Y 
OTRAS INFORMACIONES 
UTILES 

APARENTEMENTE, ESPE¬ 
CIAL PARA ESTUDIANTES. 
AL INGRESAR SE LE PIDE 
AL USUARIO QUE DEJE 
SUS DATOS PARA CON¬ 
TROLARLOS Y NUNCA 
MAS SE SABE NADA.SOLO 
SE CONOCE, ESO SI, QUE 
EL PROGRAMA LO HIZO 
GONZALO BUENO. 








NOMBRE 

BANCARROTA 

BELGRANONET 

BTS! 

BYT RON IC 

TELEFONO 

701-3813 

782-2265 

21-3922 

392-4449 

PROTOCOLO 

N.8,1 


N,8,1 

N,8,1 

HORARIO DE 
FUNCIONAMIENTO 

DOMINGO A JUEVES 

DE 22,30 A 0,30 


LUNES A VIERNES.DE 21 

A 7; SAB.YDOM., 24 Hs. 

TODOS LOS DIAS 

LAS 24 HORAS 

TIEMPO DE USO 
NIVELES DE ACCESO 

SIN LIMITE 

9 


45 MINUTOS 

3 

SIN LIMITE 

3 

OPERADOR(ES) 
RESPONS AB LE(S) 

HERNAN PARRA 

JOHNATAN U. 

EDUARDO G. ZACARIAS 

BYTRONICS.A. 

EQUIPO 

CAPACIDAD MEMORIA 
SOFTWARE USADO 

EN LINEA DESDE 

PROTOCOLOTIPO 

VELOCIDAD 

GRATUITO O PAGO 

COMMODORE 64 

170K 

COMPRADO/REFORMADO 
AGOST01987 

CCITT 

300 

GRATIS 


PC CLONE 

20 MEGA 

COMPRADO 

JULI01987 

BELL 

300-1200 

GRATIS 

PC AT 

40 MEGA 

HECHO 

NOVIEMBRE 1987 

CCITT 

300-1200 

GRATIS 


DOMICILIO 

LOCALIDAD 

AMENABAR2955.C 
CAPITAL FEDERAL 

AV. LIBERTADOR 5322,6 
CAPITAL FEDERAL 

CAPITAL FEDERAL 

MAIPU 745 
CAPÍTALFEDERAL 

MENU Y OPCIONES 

MENSAJES, BOLETINES 

DE INTERES GENERAL, 
HUMOR Y AVISOS. 

ACTUALMENTE EN 
RECESO 

POR CAMBIO DE 

EQUIPO Y 

PROGRAMA. 

CORREO ELECTRONICO. 
BOLETINES CON INFOR¬ 
MACIONES 

VARIAS, PROGRAMAS EN 
LINEA 

LISTA DE PRECIOS DE 
HARD Y SOFT, 
PARTICULARMENTE DE 
MSX: TODO SOBRE 
MODEMS,ENCICLOPEDIA 
INFORMATICA,CORREO 
ELECTRONICOY 

ACCESO MULTI- 
USUARIO. 
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NOMBRE j 

CC BBS 

CBM GROUP 

CENTURY 21 

COMMODORE MANIA 

TELEFONO 

71-4023 

49-7079 

632-7070 

362-8843 

PROTOCOLO 

N,8,1 

N,8,1 

N,8,1 

N.8,1 

HORARIO DE 

DE VIERNES A LAS 22 

TODOS LOS DIAS, 

TODOS LOS DIAS, 

TODOS LOS VIERNES, 

FUNCIONAMIENTO 

HASTA LUNES A LAS 7 

LAS 24 HORAS 

LAS 24 HORAS 

DE 21,30 A 7 

TIEMPO DE USO ! 

SIN LIMITE 

30 MINUTOS 

30 MINUTOS 

20 MINUTOS 

NIVELES DE ACCESO 

2 

2 

5 

NINGUNO 

OPERADOR(ES) 

ADRIAN MUÑOLO 

CLAUDIO REGIS 

PEDRO CORRAL 

MARCOS OLCESE 

RESPONSABLE(S) 


RUBEN PARASPORO 



EQUIPO 

COMMODORE 128 

COMMODORE 128 

APPLE II E 

COMMODORE 64 

CAPACIDAD MEMORIA 

170K 

340K 

40 MEGA 

170K 

SOFTWARE USADO 

COMPRADO 

COMPRADO 

COMPRADO 

HECHO ESPECIAL 

EN LINEA DESDE 

SETIEMBRE 1987 

MARZ01986 

SETIEMBRE 1984 

JULIO 1986- 

PROTOCOLOTIPO 

BELL 

BELL 

BELL 

BELL 

VELOCIDAD 

300-1200 

300 

300-1200 


GRATUITO O PAGO 

GRATIS 

AMBOS 

AMBOS 

GRATIS í 

DOMICILIO 

S.ORTIZ2854 

R.PEÑA 431,5 o J 

E.CARRIEG0922 

C.CALVO 632, PB M 

LOCALIDAD 

CAPITAL FEDERAL 

CAPITAL FEDERAL 

CAPITAL FEDERAL 

CAPITAL FEDERAL 

MENU Y OPCIONES 

CORREOELECTRONICO, 

CORREOELECTRONICO, 

CORREOELECTRONICO, 

MENSAJES, JUEGOS INTE¬ 


BOLETINES SOBRE 

BOLETINES CON NOTI¬ 

BOLETINES, JUEGOS Y 

LIGENTES, NOTICIAS, AS¬ 


TEMAS 

CIAS DE INTERES 

PROGRAMAS EN LINEA, 

TRONOMIA .TELEFONOS 


GENERALES Y OTROS 

GENERAL Y DEPORTES, 

INFORMACIONES UTILES. 

UTILES, BOLETINES DE 


DATOS 

LIBRERIAS DE UTILITA¬ 


CIENCIA Y TECNICA, COM¬ 


DE UTILIDAD. 

RIOS, MUSICA YJUEGOS, 


PUTACION, ANIMALES DO¬ 



CONEXION CON OTROS 


MESTICOS, RATING DE 



BBS DEL MUNDO, 


HARD HOGAREÑO Y 



REUNIONES Y REVISTA 


SERVICE PARA LOS EQUI¬ 



PARA SOCIOS. 


POS. 


NOMBRE | 

CHARLIE 

CUSTOM 

DIGGER 

DINAMIKOS 

TELEFONO 

803-8148 

21-8265 ! 

254-9008 

312-5919 

PROTOCOLO 

N,8,1 

N,8,1 

N.8,1 

N,8,1 

HORARIO DE 
FUNCIONAMIENTO 

TODOS LOS DIAS, 

DE 12 A 24 HORAS | 

LUNES A VIERNES, 

DE 23 A 3 HORAS 

TODOS LOS DIAS, 

LAS 24 HORAS 

TODOS LOS DIAS, 

LAS 24 HORAS 

TIEMPO DE USO 
NIVELES DE ACCESO 

30 MINUTOS 

3 

SIN LIMITE 

2 

30 MINUTOS 

1 

20 MINUTOS 

1 

OPERADOR(ES) 

RESPONSABLE(S) 

DARIO NULL 

FLAVIOLEDO 

ERNESTO MARTIN 

DANIEL 

FUNDACION CERIEN 

EQUIPO 

CAPACIDAD MEMORIA 
SOFTWAREUSADO 

EN LINEA DESDE 

PROTOCOLOTIPO 

VELOCIDAD 

GRATUITO O PAGO 

PC CLONE 

20 MEGA 

COMPRADO 

JULI01987 

BELL 

300-1200 

GRATIS 

COMMODORE 128 

170 K 

COMPRADO 

NOVIEMBRE 1987 

BELL 

300 

GRATIS 

IBM XT 

20 MEGA 

HECHO ESPECIAL 
DICIEMBRE 1987 

BELL 

300 

GRATIS 

APPLE II E 

20 MEGA 

COMPRADO/REFORMADO 
NOVIEMBRE 1987 

BELL 

300 

PAGO 

DOMICILIO 

LOCALIDAD 

J.SEGUI 3569,7» A 

CAPITAL FEDERAL 

MONTES DE OCA 969 
CAPITAL FEDERAL 

PAZ 314 

QUILMES 

MAIPU 889, 2 o 

MENU Y OPCIONES 

MENSAJES, BOLETINES 

DE INTERES GENERAL, 
PROGRAMASEN LINEA Y 
JUEGOS. 

RATING S, DATOS DE 
INFORMACION GENERAL, 
TRUCOS, BOLETINES CON 
INFORMACIONES VARIAS 

Y CORREO ELECTRON¬ 
ICO. 

CORREOELECTRONICO, 
ASESORAMIENTO 
TECNICO, PIZARRA ELEC¬ 
TRONICA E INFORMACION 
GENERAL. AVISOS CLASI¬ 
FICADOS. LUEGO DE UN 
PERIODO DE PRUEBA 
TIENEN LA INTENCION DE 
COBRAR EL EQUIVALENTE 
DE 1,5DOLAR LA HORA. 

SERVICIO DE RESUMEN 
NOTICIOSO DIARIO, 

TANTO A NIVEL NACIONAL 

E INTERNACIONAL. LA 
SUSCRIPCION CUESTA 
UNOS 65 DOLARES AL 
MES Y PUEDE INCLUIR LA 
RECEPCION DE MATERIA¬ 
LES IMPRESOS DESFI¬ 
LARES CARACTERISTI¬ 
CAS. 
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NOMBRE 

ELECTRIC DREAMS 

FIDONET 

FREGOL 

FRIEND’S HOSTI 


TELEFONO 

748-1973 

22-4197 

744-6809 

23-4174 


PROTOCOLO 

N.8,1 

N,8,1 

N.8,1 

N.8,1 


HORARIO DE 

VIERNES Y SABADOS, 

TODOS LOS DIAS, 

DIARIAMENTE, 23 Al; 

TODOS LOS DIAS, 


FUNCIONAMIENTO 

DE 22 A 10 HORAS 

DE 22 A 7 HORAS 

DOMINGOS, 12 A 16 

DE 18 A 23,30 


TIEMPO DE USO 

50 MINUTOS 

30 MINUTOS 

SIN LIMITES 

SIN LIMITE 


NIVELES DE ACCESO 

3 

2 

9 

2 


OPERADOR(ES) 

RESPONSABLE(S) 

BORIS JANISCHEVSKY 

PABLO KLE IMAN 

DIEGO FRENKEL 

GONZALO LA SALVIA 


EQUIPO 

COMMODORE 128 

PC CLONE 

COMMODORE 64 

COMMODORE 128 


CAPACIDAD MEMORIA 

680K 

20 MEGA 

170K 

340K 


SOFTWARE USADO 

HECHO ESPECIAL 

COMPRADO 

COMPRADO/REFORMADO 

HECHO 


EN LINEA DESDE 

AGOST01987 

NOVIEMBRE 1986 

AGOST01987 

AGOST01987 


PROTOCOLOTIPO 

BELL 

BELL 

CCÍTT 

BELL 


VELOCIDAD 

300 

300-450 

300 

300 


GRATUITO O PAGO 

GRATIS 

GRATIS 

GRATIS 

GRATIS 


DOMICILIO 

PIO XII4445 

SUIPACHA 1322, PB. A 

CONSTITUCION 1569 

SALTA 1567, 3° 2 


LOCALIDAD 

DONTORCUATO 

CAPITAL FEDERAL 

SANFERNANDO 

CAPITAL FEDERAL 


MENU Y OPCIONES 

CORREO ELECTRONICO, 
PROGRAMAS DE 

JUEGOS EN LINEA (LA 
RULETA RUSA. SI SE 
PIERDE .CORTA LA 
COMUNICACION),CONTROL 
EN LINEA, SUBIR Y 

BAJAR PROGRAMAS. 

CORREO ELECTRONI 
CO, BOLETINES 
GENERALES,ENTRAR EN 
FOROS SOBRE DIFEREN¬ 
TES TIPOS DE HARD¬ 
WARE, BBS, MUSICA, 
LITERATURA, DEPORTE, 
GRAFICOS, PERFILES DE 
LOS USUARIOS, NOTI¬ 
CIAS. 

CORREO ELECTRONICO, 
BOLETINES, NOTAS 
EXOTICAS, AVISOS 

Y HUMOR. 

MENSAJES ENTRE 
USUARIOS, BOLETINES 

DE INTERES GENERAL 

Y OTRAS APLICACIONES 
UTILES 



LAB 


AIRLINES 

uxrro aereo boliviano 


¿Sabía usted que 

LAB ofrece servicio a la mayor parte de Sudamérica? 



ARGENTINA: 

• BUENOS AIRES 

Carlos Pellegriní 137/141 • 35-6961 / 35-6111 
- SALTA 

Caseros 378 • 217753 


¿ SANTA CRUZ \ 


{ RIO DE JANEIRO 
I SAO PAULO 


LIMA 


Somos el nombre más 
antiguo en la aviación 
comercial sudamericana, ofreciendo 
transporte de pasajeros y carga desde 1 925 


COCHABAMBA • \ 

J» N. 
k v SALTA"'# 


• ASUNCION 


ARICAl 


F MONTEVIDEO 
UBUENOS AIRES 


SANTIAGO 


























B.B.S. 



NOMBRE 

FRIEND’S HOSTII 

FRIEND’S HOST III 

GENESIS 

LOS PINOS 

TELEFONO 

983-2943 

941-8359 

543-0100 

21-0375 

PROTOCOLO 

N,0,1 

N,8,1 

N,8,1 

E,7,1 

HORARIO DE 

TOOOS LOS DIAS, 

TODOS LOS DIAS 

TODOS LOS DIAS, 

TODOS LOS DIAS, 

FUNCIONAMIENTO 

DE 23 A 24 

DE 0 A 4 

DE 22 A 7 HORAS 

LAS 24 HORAS 

TIEMPO DE USO 

SIN LIMITE 

SIN LIMITE 

30 MINUTOS 

25 MINUTOS 

NIVELES DE ACCESO 

8 

2 

NINGUNO 

4 

OPERADOR(ES) 

RESPONSABLE(S) 

MARIO SILVESTRINI 

RODRIGO BAL 

MARIANO MONTERVINO 

GONZALO BUENO 

EQUIPO 

COMMODORE128 

COMMODORE 128 

COMMODORE 128 

IBM AT 

CAPACIDAD MEMORIA 

340 K 

340 K 

340K 

40 MEGA 

SOFTWARE USADO 

HECHO 

HECHO 

HECHO ESPECIAL 

COMPRADO 

EN LINEA DESDE 

OCTUBRE 1987 

NOVIEMBRE 1987 

JUNIO 1987 

NOVIEMBRE 1985 

PROTOCOLOTIPO 

BELL 

BELL 

BELL 

BELL 

VELOCIDAD 

300 

300 

300 

300 

GRATUITO O PAGO 

GRATIS 

GRATIS 

GRATIS 

PAGADO 

DOMICILIO 

RIVADAVIA4443 

POZOS 641,6° F 

BLANCO ENCALADA3664 

SUAREZ1192, II 8 C 

LOCALIDAD 

CAPITAL FEDERAL 

CAPITAL FEDERAL 

CAPITAL FEDERAL 

CAPITAL FEDERAL 

MENU Y OPCIONES 

CASI IDENTICO AL 
ANTERIOR. 

ESTA RED O CADENA 

SE HA FORMADO 

PARA SUPLIR LAS 
FALENCIAS DE 

HORARIOS. 

VER LOS ANTERIORES 

CORREO ELECTRON¬ 
ICO, BIORRITMO, 
BOLETINES DE INFOR¬ 
MACION GENERAL, 
COTIZACION DOLAR Y 
OTROSVALORES, 
TELEFONOS DE 
EMERGENCIA, OTROS 

BBS,HARDWARE 

MENSAJES PUBLICOS Y 
PRIVADOS, COLOCAR 
CLASIFICADOS EN LOS 
DIARIOS, HACER 

PEDIDO A SUPERMER¬ 
CADO Y VIDEOCLUB, 
HOROSCOPO, ICHING, 
NOVELA COLECTIVA 

Y OTROS ENTRETENI¬ 
MIENTOS. 


NOMBRE 

MAXES 

MEGATROM 

MEDISAVE 

MENDIETA 

TELEFONO 

543-0851 

041-244066 

67-7235 

654-6999 

PROTOCOLO 

N,8,1 

N.8,1 

N,8,1 


HORARIO DE 

LOS VIERNES,DESDE 

TODOS LOS DIAS, 

TODOS LOS DIAS, 

TODOS LOS DIAS, 

FUNCIONAMIENTO 

US 23,30 A 7 HORAS 

DE 22 A 7 HORAS 

DE 20 A 8 HORAS 

DE 22 A 8 HORAS 

TIEMPO DE USO 

SIN LIMITE 

30 MINUTOS 

SIN LIMITE 

SIN LIMITE 

NIVELES DE ACCESO 

ALGUNO 

2 

3 

9 

OPERADOR(ES) 

RESPONSABLE(S) 

MAXIMILIANO PILIS 
EZEQUIEL PARRANDO 


VICTOR CHALIAN 

CLUB DE USUARIOS 
DEATARI 

EQUIPO 

COMMODORE 128 

PC CLONE 

IBM AT (2) 

ATARI 64 

CAPACIDAD MEMORIA 

340K 

20 MEGA 

60 MEGA 

170K 

SOFTWARE USADO 

HECHO ESPECIAL 

COMPRADO 

HECHO ESPECIAL 

COMPRADO/REFORMADO 

EN LINEA DESDE 

NOVIEMBRE 1986 

AGOST01987 

OCTUBRE 1987 

ABRIL 1986 

PROTOCOLOTIPO 

BELL 

BELL 

CCITT-BELL 

BELL 

VELOCIDAD 

300 

300 

300 

300 

GRATUITO O PAGO 

GRATIS 

GRATIS 

PAGO 

GRATIS 

DOMICILIO 

GRAL.E. MARTINEZ 


MERCEDES 159 

ALEM137 

LOCALIDAD 

2147 CAPITAL FEDERAL 

ROSARIO 

CAPITAL FEDERAL 

RAMOS MEJIA 

MENU Y OPCIONES 

MENSAJES Y BOLETI¬ 

ES EL NODO EN SANTA 

EXCLUSIVO PARA 
MEDICOS, CON CORREO 

MENSAJES, BOLETINES, 


NES SOBRE 

FE DE U RED FIDO 

ELECTRONICO,CARTELERA 

AVISOS SOBRE CURSOS 


DIVERSOS TEMAS, 

SUBIR Y BAJAR 
PROGRAMAS 

(VER FIDO NET) 

ACTIVIDADES PRO¬ 
FESIONALES, BIBLIO¬ 
TECA, BOLETINES CON 
NOTICIAS ESPECIALES, 
SHOPPING EN GENERAL 

Y PARTICULAR PARA ESA 
ACTIVIDAD. ACCESO A 
DIALOG. 

Y PROGRAMAS. 
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B.B.S. 



NOMBRE 

NASCORP 

NATIONAL 

NOCT1CULA 

NORAD02 BBS 

PCTIM 

TELEFONO 

242-0758 

803-6021 

041-249886 

362-0892 

313-7704 

PROTOCOLO 

N,8,1 

N,8,1 

N,8,1 

N,8,1 

N.8,1 

HORARIO DE 

TODOS LOS DIAS, 

LUNES A VIERNES, 


TODOS LOS DIAS,13,30 A 

TODOS LOS DIAS, 

FUNCIONAMIENTO 

DE 20 A 6 HORAS 

DE 22 A 7 HORAS 


17 Y 23A 7 HORAS 

LAS 24 HORAS 

TIEMPO DE USO 

SIN LIMITE 

SIN LIMITE 


SIN LIMITE 


NIVELES DE ACCESO 






OPERADOR(ES) 

CARLOS UZQUIZA 

LUCASLEGASPI 


JUANGARG1ULO 


RESPONSABLE(S) 

MARCELONATALINI 





EQUIPO 

COMMODORE128 

COMMODORE 64 


ATAR11040 


CAPACIDAD MEMORIA 

1,2 MEGA 

340K 


1 MEGA 


SOFTWARE USADO 

HECHOESPECIAL 

COMPRADO/REFORMADO 


COMPRADO 

BELL 

EN LINEA DESDE 

ENERO 1987 

SETIEMBRE 1987 


JUNI01987 

300 

PROTOCOLOTIPO 

BELL 

BELL 

BELL 

BELL 


VELOCIDAD 

300 

300 

300 

300 


GRATUITO O PAGO 

GRATIS 

GRATIS 


GRATIS 


DOMICILIO 

RINCON 434 

PUEYRREDON 2434 


W.VILLAFAÑE 1451 

EN RECESO HASTA 

LOCALIDAD 

BANFIELD 

CAPITAL FEDERAL 

ROSARIO 

CAPITAL FEDERAL 

MARZO 

MENU Y OPCIONES 

CORREO ELECTRONI 

MENSAJES, BOLETINES 


MENSAJES, GRUPOS DE 

NO SE PUDO ! 


co, 

DE INTERES GENERAL Y 


INTERES, SUBIDA Y 

AVERIGUAR MAS 


COTIZACION DEL 

OTRA INFORMACION UTIL. 


BAJADA DE PRO¬ 

PORQUE LA 


DOLAR, 



GRAMAS, 

PERSONA QUE 


TELEFONOS DE LINEAS 



CUESTIONARIO. 

ATIENDE NO 


AEREAS Y FERROCA¬ 




PARECE SER MUY 


RRILES, 




ADEPTA A LA 


BIORRITMÜ Y PORTFO¬ 




TELEMATICA. 


LIO. 






NOMBRE 

RAINBOW 

SIGLO XXI 

SPORT BBS 1 

SPORTS BBS II 

TELEFONO 

802-7351 

ARPAC Y ..211100717 

41-4566 

962-1538 

PROTOCOLO 

N,8,1 

N,7,1 

N,8,1 

N.8,1 

HORARIO DE 
FUNCIONAMIENTO 

L. A V., DE 23 A 8; 

S. Y D., DE 23 A 13 

TODOS LOS DIAS, 

LAS 24 HORAS 

TODOS LOS DIAS, 

DE 23 A 7 HORAS 

TODOS LOS DIAS, 

DE 0 A 7 HORAS 

TIEMPO DE USO 
NIVELES DE ACCESO 

25 MINUTOS 

3 

SIN LIMITE 

2 

30 MINUTOS 

NINGUNO 

40 MINUTOS 

4 

OPERADOR(ES) 

RESPONSABLE(S) 

CARLOS LUJAN 

SISCOTELS.A. 

LUCIANO ORTIZ 

MARTIN JE RSONSKY 

EQUIPO 

CAPACIDAD MEMORIA 
SOFTWARE USADO 

EN LINEA DESDE 

PROTOCOLOTIPO 

VELOCIDAD 

GRATUITO O PAGO 

IBM XT 

20 MEGA 

COMPRADO 

SETIEMBRE 1987 

BELL 

300-1200 

GRATIS 

MAIN FRAME 

AGOSTO 1987 

300-1200 

PAGADO 

COMMODORE 64 

170K 

COMPRADO 

SETIEMBRE 1987 

BELL 

300 

GRATIS 

COMMODORE 128 

340 K 

COMPRADO 

OCTUBRE 1987 

BELL 

300 

GRATIS 

DOMICILIO 

LOCALIDAD 

AY ACUCHO 1739,4 C A 
CAPITAL FEDERAL 

RIVADAVIA 822,1° PISO. 
CAPITAL FEDERAL 

QUINTANA 16,1°D 

CAPITAL FEDERAL 

MAN SILLA 25548,8 o PISO. 
CAPITAL FEDERAL 

MENU Y OPCIONES 

ES NODO DE LA RED 

FIDO 

(VER). CORREO ELEC¬ 
TRONICO, 

CARTELERAS DE 
MENSAJES, 

SUBIDA Y BAJADA DE 
PROGRAMAS. 

SISTEMA DE MENSAJES, 
CONFERENCIAS MULTIPLES 
ENTRE USUARIOS Y FORMA¬ 
CION DE GRUPOS DE INTER¬ 
ESES SIMILARES (GIS). AC¬ 
TUAL MENTE ESTA EN LA FAZ 
DE EXPERIMENTACION. ES 
MAS REDUCIDO QUE EL- 
VIDEO-TEXT DELPHI; POR 
ESO, TAMBIEN MAS BARATO. 

MENSAJES ENTRE 
USUARIOS Y BOLETI¬ 
NES DE INTERES 

GENERAL,INTERCAMBIO 

DE PROGRAMAS Y 

OTRAS INFORMA¬ 
CIONES UTILES. 

HIISTORIA Y RECORDS 

EN DEPORTES, FORUMS 
VARIOS, CORREO 
ELCTRONICOY 

BOLETINES. (RECESO 

POR VACACIONES 

DESDE EL 1/12/87). 
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NOMBRE 

SYSOP BBS 

TETELO 

THE HACKER BBS 

THE MIRAGE 

TELEFONO 

760-0293 

821-5318 

748-2005 

252-1025 

PROTOCOLO 

N,8,1 

N,8,1 

N,8,1 

N,8,1 

HORARIO DE 
FUNCIONAMIENTO 

VIERNES Y SABADOS, 

DE 20 A 24 HORAS 

LUNWIER., 3 A 6; 

SDO. Y DGO., 23 A 6 

TODOS LOS DIAS, 

DE 23 A 7 HORAS 

SABADOS Y DOMINGOS, 

DE 22 A 17 HORAS 

TIEMPO DE USO 
NIVELES DE ACCESO 

10-30 MINUTOS 

3 

SIN LIMITE 

SIN LIMITE 

25 MINUTOS 

NINGUNO 

OPERADOR(ES) 

RESPONSABLE(S) 

LUCIANO PENINI 

EZEQUIELGLINSKY 

PABLO BESSE 

MIGUEL PAVESE 

MIGUEL LUCIANO 

EQUIPO 

CAPACIDAD MEMORIA 
SOFTWARE USADO 

EN LINEA DESDE 

PROTOCOLOTIPO 

VELOCIDAD 

GRATUITO O PAGO 

COMMODORE 64 

170 K 

COMPRADO/REFORMADO 
OCTUBRE 1987 

BELL 

300 

GRATIS 

COMMODORE 128 

170K 

COMPRADO/REFORMADO 
AGOST01987 

BELL 

300 

GRATIS 

COMMODORE 64 

340K 

HECHO ESPECIAL 

AGOST01985 

BELL 

300 

GRATIS 

COMMODORE 64 

170K 

HECHO ESPECIAL 

MAY01987 

BELL 

300 

GRATIS 

DOMICILIO 

LOCALIDAD 

ROCA 2876 

FLORIDA 

S. DE BUSTAMANTE 2286 
CAPITAL FEDERAL 

B.MUÑOZ 5681 
DONTORCUATO 

YAPEYU493 

BERNAL 

MENU Y OPCIONES 

BOLETINES PARA HARD 
DEDIFERENTES MARCAS, 
HUMOR, SOFT Y COMUNI¬ 
CACIONES, 

AVISOS, MENSAJES, SU¬ 
BIR Y BAJAR PROGRAMAS 
(LOS USUARIOS QUE 
TENGANCOMMODORE 
PUEDEN VERLO EN 
COLORES). 

CORREO ELECTRONICO, 
BOLETINES VARIOS, 
HUMOR Y OTRAS 
INFORMACIONES DE 
UTILIDAD. 

MENSAJES PUBLICOS 

Y PRIVADOS; TELEFONOS 
DE TODOS LOS BBS DEL 
MUNDO, LINEAS AEREAS, 
FFCC, SUBTES Y CA¬ 
NALES DE TELEVISION, 
REGLAMENTO DE LA 
AOBRA, BOLETINES 

SOBRE TEMAS CIENTI¬ 
FICOS 

CORREO ELECTRONICO, 
COTIZACION DEL DOLAR, 
REVISTA DE SOFT 
(JUEGOS Y UTIL IT ARIOS), 
RANKING, COMENTARIOS 
SOBRE LOS MEJORES 
PROGRAMAS, MUSICA, 
LIBROS, SOFT Y VIDEO. 




NOMBRE 

THE SANCTUARY 

THESPIRIT BBS 

TOP GUN 

VOYAGER BBS 

TELEFONO 

641-4608 

28-6490 

70-0049 

252-3149 

PROTOCOLO 

N.8,1 

N,8,1 

N.8,1 

N.8,1 

HORARIO DE 
FUNCIONAMIENTO 

DOMINGO A JUEVES, 22 

A 23; RESTO, 22 A 3 

LUNES A VIERNES, 

DE 19 A 22 HORAS 

SABADOS Y DOMINGOS, 

DE 22 A 1 HORA 

SABADOS Y DOMINGOS, 

DE 22 A 7 HORAS 

TIEMPO DE USO 
NIVELES DE ACCESO 

SIN LIMITE 

8 

SIN LIMITES 

9 

SIN LIMITE 

25 MINUTOS 

3 

OPERADOR(ES) 

RESPONSABLE(S) 

FELICINDO“THE 

GUARDER” RODRIGUEZ 

FABIAN BERNERO 

ALEJANDRO "THE 

WOLF" LANDINI/ANDREA 
“WHITNEY" LANDINI 

DIEGO RODRIGUEZ 

EQUIPO 

CAPACIDAD MEMORIA 
SOFTWARE USADO 

EN LINEA DESDE 

PROTOCOLOTIPO 

VELOCIDAD 

GRATUITO O PAGO 

COMMODORE 128 

170K 

COMPRADO/REFORMADO 
MARZO 1987 

BELL 

300 

GRATIS 

COMMODORE 128 

170K 

COMPRADO/REFORMADO 
SETIEMBRE 1987 

BELL 

300 

GRATIS 

COMMODORE 64 

170K 

COMPRADO/REFORMADO 
JULI01987 

BELL 

300 

GRATIS 

COMMODORE 64 

170K 

HECHOESPECIAL 

JULI01987 

BELL 

300 

GRATIS 

DOMICILIO 

LOCALIDAD 

TIMOTEO GORDILL015 
CAPITAL FEDERAL 

M. DE OCA 817,7 D A 
CAPITAL FEDERAL 

JUANA AZURDUY 2619 
CAPITAL FE DE RAL 

YAPEYU342 

BERNAL 

MENU Y OPCIONES 

DENTRO DE LAS APTI¬ 
TUDES COMUNES DEL 
SISTEMA, LOS TEMAS FUN 
DAMENTALESSON 

LA FILOSOFIA Y LA RELI 
GION, QUE APUNTAN A 
QUE “MAS QUE UNA BASE 
DE DATOS,SEA UNA PRO¬ 
PUESTA DE VIDA”. 

TODAS LAS CAPACIDADES 
HABITUALES, MAS UN 
SERVICIO DE RAITING, 
HITS Y DEMAS SOBRE 
MUSICA. TAMBIEN ALGO 
DE HARDWARE. 

CORREO ELECTRONICO, 
BOLETINES, SECCION 
CUENTOS Y LEYENDAS, 

Y TAMBIEN FUNCIONA 
“ENGANCHADO” CON THE 
SANCTUARY 

MENSAJES, BOLETINES 

DE SOFT, HARD, TEMAS 
GENERALES Y NUEVOS 
USUARIOS; COTIZACION 
DOLAR, ARCHIVO DE PRO¬ 
GRAMAS, TELEFONOS 
UTILES, GLOSARIO TERM1- 
NOS INFORMATICOS, DEMC 
CONTACTO CON COMPU - 
SERVE Y VIDEOTECA. 
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LAUTREC 


fora ser mayor a los 16 . 



-“Antes de tener una 
Cuenta Joven guardaba ^ 
la plata donde podía" 


Al mismo tiempo, ei 
dinero depositado en 
la Cuenta Joven trabaja, 
acumulando así una 
ganancia 
■ extra. 


La Cuenta Joven del V 
Banco de Galicia < 

brinda a los jóvenes, V 
a partir de ios 16 años, , 
la posibilidad de operar i 
su propia Caja de Ahorro' 
y Servicios. 


Con la autorización de 
un mayor. 


-“Puedo manejar 
mejor mi dinero. ” 


Permite \ ' \ * 
realizar hasta 
cinco extracciones 
mensuales, para 
disponer del dinero en 
el momento en que 
se lo necesita. 


Con una 

Cuenta Joven se pueden 
organizar los gastos 
del mes cómodamente. 


-“Además 
me da 
intereses" 


-“Si necesito plata í 
voy, la saco con la 
tarjeta Banelco y c.hau. ” 


Beneficios para una nueva generación. 

Caja de Ahorro v Servicios 
más tarjeta Banelco. 


Depositar o extraer 
dinero es muy sencillo: 
basta dirigirse a cualquier 
cajero automático de 
la red, y operario con 
la tarjeta personal 
Banelco, las 24 horas 
del día todos 
los días del 
año. 


BANCO DE GALICIA 

y BUENOS AIRES 


No dude que a usted lo Ijeneficia. 


Fi beneficio..., que un banco trabaje para usted. 


co 
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BEGGINERS 



ESTRUCTURANDO EL BASIC 


Contando todos sus dialectos , el BASIC es el idioma de mayor difusión actual. Sin 
embargo , sufre las críticas de no ser estructurado. Veamos como evitar ese proble¬ 


ma. 


a gran ventaja de los 
lenguajes altamente 
estructurados consiste 
en la posibilidad de que 
cada usuario cree su 

propia “biblioteca” de rutinas. 

Estas rutinas no son específicas para 
un solo programa, sino que están do¬ 
cumentadas de tal forma que pueden 
ser utilizadas más de una vez, dentro 
de organizaciones aún mayores. 

Las características que debe tener un 
lenguaje para poder crear estas biblio¬ 
tecas, son bastante precisas. 

Para empezar, debe poseer dos tipos 
distintos de variables. 

Estas serán llamadas locales o globa¬ 
les, y nos permiten utilizar una varia¬ 
ble dentro de un procedimiento que 
luego puede volver a ser utilizada 
dentro del programa principal. 

En BASIC, una vez que utilizamos u- 
na variable, ésta es automáticamente 
considerada como global. 

La misma se puede utilizar en cual¬ 
quier parte del programa, y por lo tan¬ 
to si una variable de nuestra rutina se 
utiliza dentro del porgrama principal 
con otro fin, surgirán inmediatamen¬ 
te los problemas. 

Además, como en BASIC se deben 
numerar todas las líneas, debemos te¬ 
ner cuidado con los números utiliza¬ 
dos en las líneas de una rutina de bi¬ 
blioteca, ya que estos no deben repe¬ 
tirse dentro del bloque principal. 
Supongamos por ejemplo, que debe¬ 
mos hacer un programa que se encar¬ 
gue de imprimir cheques. 

Dentro de este bloque de código, de¬ 
be existir una rutina cuya función se- 
a la de transformar los números a le¬ 
tras, ya que debemos incluir estas dos 
cantidades en el cheque. Una vez es¬ 
crito el código, lo almacenamos y lis¬ 
to. 
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Ahora bien, la semana siguiente debe¬ 
mos hacer un programa que nos im¬ 
prima las facturas de un negocio. 
Nuevamente, debemos apelar a una 
rutina conversora de números a letras. 
Que mejor que utilizar la que hicimos 
lá semana pasada. 

Sin embargo, cuando lo vamos a ha¬ 
cer, vemos que algunas variables de la 
rutina y a las utilizamos en el nuevo 
programa, y para peor, los números de 
línea de larutina caen justamente en el 
medio del programa principal. 
Conclusión, debemos reescribir inte¬ 
gramente la rutina de conversión, 
cuando con un poco de educación in¬ 
formática lo podríamos haber evita¬ 
do. 

Tratar de estructurar el BASIC nos 
lleva a crear una serie de normas es¬ 
trictas, tal como las que tienen los len¬ 
guajes estructurados. 

REGLAS DE NUMERACION DE 
LINEAS 

'Sin algún tipo de regla para numerar 


las líneas de un programa, tratar de 
hacer un MERGE entre dos partes de 
código puede resultar el mayor de los 
fracasos (MERGE es la instrucción 
que nos permite cargar un programa 
sin borrar el que ya se encuentra en 
memoria). 

Con las reglas de numeración apro¬ 
piadas, tan solo debemos dividir un 
programa en partes lógicas y asignar¬ 
les números de líneas a estos bloques. 
Todos los programas comienzan con 
una inicilización, o declaración. Me¬ 
diante unas pocas lineas debemos ex¬ 
plicar que es lo que él programa hace, 
establecer variables y dimensionar 
matrices. 

Reservando las líneas 0 a 999 para es¬ 
ta función estaremos más que cubier¬ 
tos. 

Luego de esta introducción, vendría 
el código del programa propiamente 
dicho. 

Como vamos a hacer uso de todo el 
potencial de nuestra biblioteca de 
programas, este bloque de código se- 
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rá llamadas a las subrutinas corres¬ 
pondientes, de forma que se siga la ló¬ 
gica del programa, y se llegue al resu- 
lado correcto. 

Para esta función, vamos a separar las 
líneas que van de la 1000 a la 9999. 
Luego vendrán las subrutinas propias 
del programa, que sin ser parte de la 
biblioteca están incluidas para una a- 
plicación en particular. Reservare¬ 
mos para esta función las lineas de 
10000 a 14999. 

Luego reservaremos una sección para 
las subrutinas específicas. Por ejem¬ 
plo, un sistema de liquidación de suel¬ 
dos debe leer los nombres de los em¬ 
pleados de un archivo, o un sistema 
contable debe realizar largas sumas 
para obtener un balance. Este tipo de 
rutinas serán almacenadas en las Une- 
as que van de 15000 a 24999. 
Finalmente, llegan las subrutinas del 
sistema. 

Estas serán el “corazón” de todo el 
sistema, y les reservamos el lugar que 
va de 25000 a 65000. Aquí se aloja¬ 
rán todas las rutinas de biblioteca, y 
para tener un mejor orden podemos 
dividir esta sección de la siguiente 
manera: 

-de 25000 a 29999, estarán todas las 
rutinas encaragdas de realizar la inte- 
fase con el usuario, como ser menúes, 
pantallas de entrada, etcétera. 

-de 30000 a 34999, para las rutinas de 
manejo de archivos. 

-de 35000 a 59999, rutinas de uso ge¬ 
neral. 

-de 60000 a 65000, rutinas de ON E- 
RROR. 

Todos estos límites no son estrictos, y 
la experiencia de cada uno puede de¬ 



terminar que sección alargar o achi¬ 
car. 

Lo que si se debe tener en claro, es que 
una vez que se determina una zona de 
trabajo, esta no debe ser “invadida” 
por otra, para evitar los problemas 
que mencionamos al principio. 

En la tabla 1 podemos ver un resúmen 
de las reglas para numerar líneas que 
les hemos propuesto. 



REGLAS PARA LOS NOMBRES 


Sin duda, la mejor forma de darle un 
nombre a una subrutina, es que sea lo 
más descriptivo posible, para que no 
se deban dar más explicaciones. 

Sin embargo, la limitación de la ma¬ 
yoría de los lenguajes con respecto al 
nombre de los archivos, hace que es¬ 
ta propuesta resulte comprometida. 
Por ello, les sugerimos que para nom¬ 
brar a las subrutinas se utilice un pre¬ 
fijo de dos letras que se relacione con 
la funcón que cumple, seguido del nú¬ 
mero de línea donde comienza el có¬ 
digo. 

Por ejemplo, la LS36700 será una su¬ 
brutina de nuestra biblioteca que se u- 
tiliza para liquiación de sueldos (LS) 
y comienza en la línea 36700. Final¬ 
mente, dependeremos de la documen¬ 
tación de la misma para determian es¬ 


pecíficamente su función y variables 
de entrada/salida. 

Las reglas de nombramiento de varia¬ 
bles responden a la necesidad que les 
explicábamos en un comienzo. Hay 
que evitar las “colisiones” entre va¬ 
riables que se utilizan en el bloque 
principal, y en alguna sübrutina de 
nuestra biblioteca. 

Para solucionar este problema, pode¬ 
mos simular el efecto de, variables lo¬ 
cales asignando grupos de variables a 
distintas secciones de código. 

Por ejemplo, podemos asignar todas 
las variables que comienzan con las 
letras de la A a la H para el código del 
programa, las IJ para lazos FOR- 
NEXT, las K-P para subrutinas de a- 
plicación, y las Q-Z para rutinas del 
sistema. 

Yendo aún más lejos, podemos divi¬ 
dir a las variables en dos grandes gru¬ 
pos. 

Uno será “transitorio”, que agrupará 
aquellas variables que se utilizan pa¬ 
ra cálculos intermedios, y funciones 
de poca importancia. 

El otro será el de las “permanentes”, 
que tiene una significación importan¬ 
te a lo largo del programa, o dentro de 
una aplicación dada. 

Cuando llamamos a una subrulina, 
simplemente debemos asignar las va¬ 
riables locales a aquellas que la su¬ 
brutina necesita para trabajar. 

Luego del RETURN, guardamos los 
valores que queremos utilizan en las 
variables de programa, antes de se¬ 
guir llamando a otras subrutinas. 

Se debe tener mucho cuidado con al¬ 
gunas versiones de BASIC que solo 
toman en cuenta las dos primeras le- 
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tras del nombre de la variable para i- 
dentificarla. 

En la tabla 2 podemos ver una guía pa¬ 
ra asignar nombres a variables dentro 
de este esquema. 

COMENZANDO NUESTRA 
BIBLIOTECA 

Lo primero que debemos eliminar es 
el hábito de no documentar los pro¬ 
gramas. 

No sería la primera vez, que luego de 
pasado un tiempo no solo no recorda¬ 
mos cómo funciona un programa, si¬ 
no tampoco lo que se supone que de¬ 
ba hacer. 

Una vez que hemos establecido nues¬ 
tras reglas de programación, pode¬ 
mos crear un “esqueleto” del progra¬ 
ma, que será utilizado cada vez que 
vamos a programar algo . 

Antes de agregar una rutina a nuestra 
biblioteca, conviene preguntarse lo 
siguiente: ¿será útil para más de un 
programa?, y ¿ puede hacerse de for¬ 
ma lo suficientemente general sin 
perder funcionalidad ? 

Si la respuesta a ambas preguntas es 
sí, entonces nos encontramos frente a 
un caso que vale la pena de ser con¬ 
vertido en función de biblioteca. 

No debemos olvidar que la documen¬ 
tación de las rutinas se debe hacer tan¬ 
to en el código, como en el papel. 

En la figura 1 podemos ver un ejem¬ 
plo de como documentar una subruti¬ 
na, donde se explícita el proposito de 
la misma, las variables de entrada/sa¬ 
lida y el comienzo y fin de la misma. 
Si mantenemos la constancia con es¬ 
te esquema, pronto llegará el día en 
que escribir nuestros programas será 
tan simple como armar una serie de 
bloques tan solo por medio de GO- 
SUBs. _ 

GLOSARIO Rutinas: Todo pro¬ 
grama, o parte de un programa que re¬ 
alice una función específica es consi¬ 
derado una rutina. 

Variables: Cualquier letra o conjunto 
de letras al que se asigna un valor que 
puede cambiar según el desanrollo del 
programa. Por ejemplo, cuando hace¬ 
mos LET AA=1, le asignamos a la va¬ 
riable A A el valor 1. 

Código: Es un conjunto de líneas de 


TABLA 1 



INICIALIZACION 

0- 999 

CODIGO DE PROGRAMA 

1000-9999 

SUBRUTINAS DE PROGRAMA 

10000-14999 

SUBRUTINAS DE APLICACION 

15000-24999 

SUBRUTINAS DEL SISTEMA 

25000-65000 

-INTERFASE CON EL US ARIO 

25000-29999 

-MANEJO DE ARCHIVOS 

30000-34999 

-PROPOSITO GENERAL 

35000-59999 

-ON ERROR GOTO 

60000-65000 

FIGURA 1 


NOMBRE DE LA SUBRUTINA: CC36800 
LINEAS: 36800-36890 

PROPOSITO: COMPARAR UNA CADENA CONUNALISTA DE CLA¬ 
VES, Y REGRESAR CON EL RESULTADO EN UN FLAG 
VARIABLES REQUERIDAS: Q$= CADENA A COMPARAR CON LAS 
CLAVES 

VARIABLES DEVUELTAS: Q0= NUMERO DE LA CLAVE, 0 SI NO 
HUBO COINCIDENCIA 


NOTAS: ESTA RUTINA REQUIERE QUE LT35500 (RUTINA DE LEC¬ 
TURA DE TECLADO) ESTE PRESENTE EN EL MISMO PROGRAMA 


TABLA 2 


SECCION DE CODIGO 

NOMBRE 

DE VARIABLE 

CODIGO DE PROGRAMA 

A-H, I-J para 
FOR-NEXT 

-TRANSITORIOS 

A-D 

-PERMANENTES 

E-H 

SUBRUTINAS DE PROGRAMA 

A-H 

-TRANSITORIAS 

A-D 

-PERMANENTES 

E-H 

SUBRUTINAS DE APLICACION 

K-P 

-TRANSITORIAS 

K-M 

-PERMANENTES 

N-P 

SUBRUTINAS DEL SISTEMA 

Q-Z 

-TRANSITORIAS 

Q-R 

-PERMANENTES INTERFASE USUARIO 

S-T 

-PERMANENTES MANEJO ARCHIVOS 

U-V 

-PERMANENTES USO GENERAL 

W-X 

-PERMANENTES ON ERROR GOTO 

Y-Z 


un programa, que pueden o no tener 
una función especifica. Una rutina 
esta formada por distintas partes de 
código, mientras que un programa 
estará formado por un conjunto de ru¬ 
tinas. 

ON ERROR: Es una instrucción del 
idioma BASIC que nos permite diri¬ 
gir el control de un programa a una 
determinada parte del mismo en caso 
de que se produzca un error. Por e- 


jemplo, si tratamos de cargar un ar¬ 
chivo desde la disquetera pero no hay 
ningún disco puesto, se generará un e- 
rror. En este caso, mediante el ON E- 
RROR, podemos imprimir un mensa¬ 
je que nos avise del problema, sin que 
se detenga la ejecución del programa. 
Todo buen sistema debe preveer este 
y otro tipo de errores, ya que el pro¬ 
grama nunca debe detenerse. 
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DREAN COMMODORE 64 


DESCIFRANDO EL 
CONTROL DE VIDEO II 


Continuamos con el análisis del chip VIC II, encargado de generar los 
gráficos de la C-64. Veamos un nuevo ejemplo de su funcionamiento . 



n nuestra entrega an¬ 
terior nos referimos a 
las bases de los gráfi- 
eos controlados en u- 
I na C-64. 

Recordando algunos conceptos, sa¬ 
bérnoslo que es una interrupción y có¬ 
mo se usa. Además, podemos modifi¬ 
car los vectores de interrupción para 
que la máquina ejecute una rutina 
nuestra en vez de las que ya tiene in¬ 
corporadas. Siguiendo en esta línea 
de razonamiento, pasamos a un pri¬ 
mer ejemplo en el que dividimos la 
pantalla en dos partes distintas, una de 
cada color. 

Para ello, debiamos producir dos inte¬ 
rrupciones, una al comienzo de la 
pantalla, y la otra en el medio de la 
misma. 

Si ejecutaron este programa con éxi¬ 
to, habrán notado un leve parpadeo en 
el color de la parte superior de la pan¬ 
talla. 

Esto se debió a que al incorporar una 
rutina donde antes no había nada, se 
perdió un poco de tiempo, y este tiem¬ 
po perdido hizo que se retrasase la ru¬ 
tina de actualización de video. 
Sucede que al afectar el funciona¬ 


miento intemo de la computadora, 
también se alteran los tiempos de tra¬ 
bajo calculados en el momento del di¬ 
seño de la misma. 

Si bien la rutina que cambia el color 
de la pantalla no modifica en nada el 
funcionamiento del sistema, esta pro¬ 
voca un retraso en otras funciones que 
acaba siendo un parpadeo en la panta¬ 
lla. 

Con este nuevo problema por resol¬ 
ver, vamos a seguir investigando en el 
interior de nuestra C-64. 

La necesidad de evitar este parpadeo 
se hace evidente cuando estamos pro¬ 


gramando un juego. En este caso, la 
imagen debe estar bien definida y es¬ 
table. 

La solución a este problema pasa por 
las interrupciones de otro chip, ya no 
del de video. Dado que una explica¬ 
ción del funcionamiento del mismo 
escapa al interés de este artículo, solo 
nos concentraremos en los efectos, 
sin preocupamos por las causas. 
Como mencionamos antes, todo el 
problema surge de un retraso en la ac¬ 
tualización de video. 

La rutina encargada de hacer esto se 
encuentra en la posición de memoria 
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EA31 (hexadecimal). 

Si nuestra modificación del sistema 
de la máquina hace que esta rutina se 
retrase y por ello la imágen no es es¬ 
table, la solución consistirá en llamar 
á esta rutina más veces por segundo 
¡que lo que se hacía antes y asunto a- 
rreglado. 

De esta forma, el video será actualiza¬ 
do más veces por segundo, y se elimi¬ 
na el parpadeo. Las interrupciones co¬ 
rrespondientes a la actualización de 
video se controlan por medio del bit 
7 de la dirección de memoria 56333 
(DCOD). 

Al poner en cero el bit 7 de esta posi¬ 
ción de memoria, las interrupciones 
para actualizar video no ocurrirán. 
Pero si dentro de nuestra propia ruti¬ 
na efectuamos la llamada a la rutina 
localizada en E A31 (la actualizadora 
de video), lo suficientemente rápido 
como para evitar el parpadeo, tendre¬ 
mos la solución a nuestro problema. 
Lo que haremos será saltar cada tres 
interrupciones de barrido a la rutina 
EA31. 

La mayor complicación de esto se en¬ 


cuentra en el soft. 

Sucede que al llamar a una rutina en 
código máquina, debemos controlar 
que luego de ejecutada la misma, la 
computadora le devuelva el control a 
nuestra propia rutina, y no a otra cosa. 
Para ello, habrá que controlar el 
“stack” de la máquina. El stack o pila 
es una zona en la memoria de la com¬ 
putadora que es utilizada por el mi¬ 
croprocesador para almacenar ciertos 
datos durante los saltos en el progra¬ 
ma. 

Supongamos que estamos ejecutando 
una rutina y, por efecto de una inte¬ 
rrupción, el micro debe saltar a otro 
lado. Una vez que termina de ejecutar 
la rutina correspondiente a la inte¬ 
rrupción, de algún modo debe “recor¬ 
dar “ de donde venía antes de que la 
interrupción ocurriera. Para ello se u- 
táliza el stack. En él se almacena la di¬ 
rección de memoria correspondiente 
al lugar en donde estaba el micro an¬ 
tes de que la interrupción tuviera lu¬ 
gar. 

El programa que realiza todo esto se 
puede ver en el listado 1. Este pone 


tres colores de fondo, y tres colores 
diferentes de borde. 

Al ocurrir la primera interrupción, 
cambiamos los colores de fondo y re¬ 
cuadro. 

Si no ocurrió una interrupción de ba¬ 
rrido, traemos del stack los registros, 
y finalizamos la interrupción. Una 
vez que ocurren tres interrupciones de 
barrido, saltamos a la rutina EA31 pa¬ 
ra actualizar el video. 

De esta forma, se pueden controlar los 
seis colores de la pantalla al mismo 
tiempo. 

Una aplicación interesante puede ser 
la de dividir la pantalla de la C-64 en 
tres secciones de distinta resolución. 
Por ejemplo, podemos poner una zo¬ 
na de baja resolución entre medio de 
dos zonas de alta. 

Para ello, entre cada interrupción de 
barrido se debe “pokear” el registro 
correspondiente del VICII (ver el ma¬ 
nual de la máquina), para establecer el 
modo de video que más nos conven¬ 
ga. 
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PISTAS 


Trucos, trampas 
y hallazgos 


SPECTRUM-TK90 


S ergio Gutiérrez su¬ 
po aprovechar su 
computadora de va¬ 
rias formas; estos son algu¬ 
nos trucos por los que me¬ 
reció una mención en nues¬ 
tro concurso mensual; 


mente un cartel por la pan¬ 
talla. Pero achicando el va¬ 
lor de “a” se consigue acor¬ 
tar el desplazamiento. 

-EQUIVALENCIAS 


-SCROLL 

Para mover una pala- 
bra/rase, o inclusive un pá¬ 
rrafo. En nuestro ejemplo 
de la f igura 1 tenemos el 
listado para correr vertical- 


Para hacer las equivalen¬ 
cias entre los diferentes sis¬ 
temas de medición de la 
temperatura, ayudémonos 
con la rutina de la figura 2. 
Esta trabaja sobre los gra¬ 
dos centígrados y luego los 


FIGURA 1 


1 LET a =0 

2 PRINT 30.; TRB 7; * ¡ Scrol l Ue r t 
i c a l “ 

3 LET a =a +1 

4 RRNDOMIZE USR 3532: IF 3=22 
THEN PAUSE 0: GO TO 5 

5 GO TO 3 


FIGURA 2 


2 POKt 2oy , 7 X : 0 : i_ 

4 PRINT RT 8,7; “Teraiometro di 
g i t a l"PRPER 0 ; RT 3, 0 *‘ rPRENHc. 1 
T“ ; AT 3.10;“KELUIN”;RT 8,17;“REA 
MUR";RT 8,24;"RRNKINE” 

5 PRINT RT 3,7;“GRADOS CENTIG 
RRDOS" 

61 INPUT “GRADOS CcNlIGRRDOS: 
;T: PRINT RT 5,15;“ 

6-2 LfcT K=T +273 

63 LET F= (9+T/5)+32 

64 LET R=iT/5)*4 

65 LET RRN=í(9*T/5)+32)+468 

69 PRINT RT 5,17;“ ";RT 18 

,5;" ”; RT 10,15.;“ “; 

RT 10,22;" ”;RT 18,29;“ 

u 

70 PRINT RT 5,15;T;RT 10,2;F;R 
T 10.12; K ; RT 18,19; RRT 18,25; RR 
N 

71 GO TO 57 


FIGURA 3 


10 OLEAR 29999 

20 FOR f =38880 TO 30009: RERD 
a: POKE f,a: NEXT f 

38 DRTR 243,6,192,33,0,64,205, 
173,14,281 

40 PRINT 31;TfiB 15;“K-54": PRI 
NT 38;TR8 15;"Revista" 

58 RRNDOMIZE USR 38888 


pasa a Farenheit, Kelvin, 
Reamur y Rankine. 

En las líneas 63,62,64 y 65 
se encuentran las fórmulas 
correspondiente a cada sis¬ 
tema. 

-DOS MAS 

Es posible sacar la impre¬ 


sión de la pantalla de estas 
computadoras a través de 
una impresora usando la 
sentencia “COPY”. Pero 
con la rutina de la figura 3 
lograremos imprimir las 
dos últimas y rebeldes Une- 
as. 


CZ SPECTRUM-TK 
90-TS 2068 


MENCION CONCURSO MENSUAL 


O scilador de 

FRECUENCIA 

Hernán Gabriel López, ga¬ 
nador de una mención en 
nuestro concurso mensual, 
creó esta interesante rutina 
(figura 4). Se trata de un os¬ 
cilador de frecuencias. Por 
ejemplo, conectando la sa¬ 
lida EAR del grabador a la 
entrada EAR de la compu¬ 
tadora, mediremos las fre¬ 
cuencias que provienen de 
una cinta. Con esto logra¬ 
mos transformar a nuestra 
modesta computadora en 
un valioso instrumento de 


laboratorio electrónico. 
Antes de hacer correr este 
programa, verifiquemos 
que la impresora se en¬ 
cuentre desconectada. 

-SONIDO DEL 
TECLADO 

Para aumentar el tiempo 
del sonido que se produce 
al presionar una tecla, en¬ 
tremos la sentencia: 

POKE 23609.X. 

La variable “X” puede to¬ 
mar cualquier valor entre 0 
y 255. Cuanto más grande 


FIGURA 4 


38 BORDER 8: PAPER 0: INK 9: C 
LEAR- 

48 FOR X=23300 TO 23352: RERD 
ü! : POKE X , >>! : NEXT X 

58 RRNDOMIZE USR 23380 

68 LET fre=PEEK 23298 +256*PEEK 

O'íOOQ 

‘"70"PRINT RT 12.17;“ 

8© PRINT RT 12,17; PAPER 5;fre 

; ” Hz " 

9© GO TO 58 

188 DRTR 237.128,31,56,1,281,33 
.0.0,62.8.219,254,238,64,32,239 , 
i,160,185,11,128,177,48,24,62,8, 
219,254.238,64,48,243,35,11,128, 
177,48,18,62,8,219,254,230,54,32 
. 243.24,227.34,2,91,281 


FIGURA 5 


18 LET X =32 
20 FOR i=1 TO 320 
38 POKE 22527+64+i,X 
48 NEXT i 


30 






























sea el valor de “X”, más 
prolongado será el sonido. 
Para volver el sonido a su 
modo normal, tipiemos: 
POKE 23609,0 
-PINTANDO LA 
PANTALLA 
Con la rutina de la figura 5 

c- 


podemos ver la “forma de 
pintar la pantalla”. 
Modificando el valor de “I” 
controlamos el sector de la 
pantalla a pintar. Y con la 
variable “X” controlamos 
el color. 


mienza en la dirección 829 
y termina en la 1019. En las 
833 a 849 está el nombre 
del último programa carga¬ 
do. Para imprimirlo en la 
pantalla se debe copiar: 
FOR 1=833 TO 849: 
PRINT A(I): WATT 198 
,1: NEXTI 

-SIN LIST 


D iego Pagliaroli ar¬ 
mó para estas 
computadoras un 
programa sencillo y corto 
que dibuja en pantalla el 
contorno geográfico del 
mapa de su provincia, Cór¬ 
doba. 


J osé Castro nos co¬ 
menta algunos se¬ 
cretos para esta 
computadora 

-SIN GET 

Algunas veces es necesa¬ 
rio ver el contenido de un 
vector muy extenso y esto 
no entra en la pantalla. Pa- 

FIGURA 6 


La rutina de Diego está lis¬ 
tada en la figura 6. Este pro- 
gramita que puede ser¬ 
vimos de ejemplo para di¬ 
bujar otras provincias no 
solo señala el contomo, si¬ 
no también lo pinta y ubica 
su capital. 


ra esto sería útil detener el 
ciclo hasta pulsar una tecla, 
facilidad que no permite la 
sentencia GET. 

Con las siguientes líneas se 
consigue suplantar al GET: 
FOR 1=1 TO 100: POK 
E198,0: PRINT A(I): 
WAIT 198,1: NEXT I 
-Buffer 

El buffer del dátasete co¬ 


Para que no aparezcan los 
números de línea al entrar 
la sentencia LIST, tenga¬ 
mos en cuenta esta instruc¬ 
ción: 

POKE 22,35 

y para volver a la normali¬ 
dad: 

POKE 22,25 
-Valioso Sys 

La sentencia SYS 711 tiene 
el mismo efecto que pulsar 
simultáneamente las teclas 
RUN/STOP y RESTORE. 

MENCION 

También Juan Buhler tiene 
varios trucos interesantes 
para las C-64, y por esto 
fue ganador de una men¬ 
ción en nuestro concurso 


COMMODORE 64 


5 COLOR 0,1sCOLOR 4,2,0sC0L0R 1,7,0 
10 GRAPHIC 1,1 

20 DRAW1,93,190T0155,190T0155,169T0170,169TQ1B0,169T0185,160T0200,120T0186,110 
30 DRAM 1,186,11OTO185,105T0188,74T0190,74T0200,36T0185,30T0188,20 
40 DRAW1,1BB,20T0179,20T0179,15T0149,15T0147,15T0147,8T0130,8T0112,8 
50 DRAW 1,111,8T0110,23T0100,30TOBO,31T070,58T070,78 

60 DRAW 1,70,7BT090,85T090,95T099,95TD96,95T098,105T093,130T093,190 

70 CHAR 1,16,8,"•",1:CHAR1,20,22,"PCIA. DE"s CHAR 1,20,23,"CORDOBA":PAINT 1,160,1 

00 


de tilicos, trampas y hallaz¬ 
gos. 

-Basta de save 
Se puede anular la instruc¬ 
ción SAVE mediante PO¬ 
KE 818,32. Para volver a 
activar esta sentencia, use¬ 
mos POKE 818,237 

-NTSC o PAL 

Mediante la sentencia PE- 
EK podemos saber si nos 
encontramos frente a una 
computadora NTSC o PAL 
N. La sentencia necesaria 
es: PRINT PEEK($02A6). 
Si el número impreso es 0, 
significa que la computa¬ 
dora es NTSC y si el núme¬ 
ro es 1, la computadora es 
PAL. 

-Auto RUN desde disco 

Siguiendo estos pasos, 
conseguiremos que un pro¬ 
grama cargado desde disco 
se auto ejecute: 

a) entrar como primera lí¬ 
nea del programa la senten¬ 
cia: 

0 POKE 770,131: POK 
E 771,164 

b) grabar el programa en 
disco, mediante la instruc¬ 
ción: 

POKE 770,113:POKE 7 
71,168:POKE 43,0:PO 
KE 44,3:SAVE”[nombr 
e del programa]”,8 


BHümnmék 

CENTRO ESPECIALIZADO PARA ATARI 
CLUB DE USUARIOS 

VENEZUELA 2095 - (1096) CAPITAL 
T.E. 942-2482 


Envíos al interior. 


i 


atención a usuarios y comercios. 


Software para ATARI 800 XL - 130 XE 
Software para ATARI 520 -1040 ST 
7000 programas en diskette 
más de 1000 programas en cassette 
Digitalizadores de Audio y Video 
BBS automático 

Geacbres dd Tirbo y Stac de cassette para ATARI 
Documentación de todos los juegos y programas 
Software a medida 


Horario: de 10 a 20 hs. 
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Luego de grabar el progra¬ 
ma, la computadora se col¬ 
gará. Entonces se resetea y 
se carga el programa con: 
LOAD” [nombre del pr 
ograma]”,8,l 

y este correrá automática¬ 
mente. 

Pero ahora vamos a expli¬ 
car cómo funciona este tru¬ 
co. En las direcciones 770- 
771 ($0302-$0303) está el 
puntero donde el sistema 
mira 60 ó 50 veces por se¬ 
gundo (según sea NTSC o 
PAL) para ejecutar la ruti¬ 
na que se o cupa de ver las 
teclas pulsadas. Si antes de 
guardar el programa cam¬ 


biamos este puntero a la di¬ 
rección de la rutina de eje¬ 
cución, aquel se ejecutará 
automáticamente. 

Cuando carguemos el pro¬ 
grama nuevamente, vere¬ 
mos que aparecerá la pan¬ 
talla que estaba al guardar¬ 
lo. Para esto hay una solu¬ 
ción: limpiar la pantalla an¬ 
tes del SAVE. O, como su¬ 
gerencia, podríamos dise¬ 
ñar una pantalla de presen¬ 
tación para que se cargue 
junto al programa, tenien¬ 
do en cuenta que solo se 
graba la memoria de carac¬ 
teres y no la de color. 


MSX 


E l programa de la figu¬ 
ra 7 muestra uno de 
los usos de la varia¬ 
ble TIME del sistema. 

Este soft consiste en escri¬ 
bir sobre una pantalla gráfi¬ 
ca, ingresar una clave y ve¬ 
rificar si es la correcta. 
Antes de hacer correr el 


listado, es conveniente gra¬ 
barlo. Si entramos una cla¬ 
ve errónea, el listado se bo¬ 
rrará. 

La clave es 65, pero se pue¬ 
de modificar en la senten¬ 
cia 170 (65 es el código 
ASCII de la letra “A”). 


CZ 1000-1500/TK 83-85 


E stos son algunos tru¬ 
cos que Julio More¬ 
no utiliza para sacar 
más provecho de estas 
computadoras. 

-Efecto terremoto 
En la figura 8 hay un lista¬ 
do que produce en nuestra 
computadora un perfecto 
efecto de terremoto. Felici¬ 
tamos al autor por haber 
conseguido una simula¬ 
ción excelente del movi¬ 
miento. 

•La divertida rutina de la fi- 
gura 9 puede ser una buena 
sugerencia para incorporar 
en las presentaciones de 
nuestros programas. 

El soft consiste en entrar u- 
na frase, que luego saldrá 


disparada desde un revól¬ 
ver. 

La sencillez de su estructu¬ 
ra, permitirá a cualquier u- 
suario hacerle algunas mo¬ 
dificaciones para ajustarlo 
a sus necesidades. 

CUADRADOS 

- Diego R. Loncina, 
también conoce las 
entrañas de estas computa¬ 
doras. Para demostrarlo, 
envió a nuestra redacción 
el siguiente truco: 
-POKEUSR 1,(1 hasta 8): 
llena la pantalla de cuadra- 
ditos, se recupera el control 
pulsando dos veces alguna 
tecla. 


FIGURA 7 

10 KEY OFF:CLS 
20 SCREEN 3 

30 OREN "GRP:" FOR OUTPUT AS# 
1 

40 FOR 1=1 TÜ 178:CLS 
; 50 PRESET (70,10+1) 

60 PRINT#1,"MSX" 

70 NEXT I 
80 CLS 
90 SCREEN 3 
110 PRESET (70,70) 

120 PR I NT# 1 , "MSX 11 
130 K*bINKEY$ 

140 IF K$="” THEN GOTO 130 
150 CLS 

160 INPUT"INGRESA EL NRO. CLA 
VE";W:CLS 

170 IF W=ASC("A"> THEN GOTO 2 
80 ELSE GOTO 180 
i80 PRINT "ESTE PROGRAMA SE D 
ESTRUIRA EN 10 SEGUNDOS" 

190 TIME=0 
200 LOCATE 10,10 
210 T—TIME/50 
220 S=T MOD 60 
i 230 IF S=11 THEN GOTO 260 
240 PRINT USING "## SEG.";S 
250 GOTO 200 
260 NEW:RETURN 
270 END 

280 PRINT"PULSA UNA TECLA" 

290 E*»INKEY* 

300 IF E$="" THEN GOTO 290 
31O A$ =CHR$ (82):B$=CHR$(101): 
C$=CHR$(118):D$=CHR$(105):E$= 
CHR* (115):F*=CHR$(116):6 $=CHR 
$(97):H$=CHRÍ(32):I*=CHR$(75 > 
: S$ =CHR$( 45 ): K*=CHR$ (54):L$=C 
HR$ (52) 

320 LOCATE 10,8:PRINT A*;B*;C 
$; D$; E*; F*; G*; H$ ? I *; S*; K*; \J$ 
330 ÉND 


FIGURA 8 


iS PRINT OT 10,10; 
20 FOR fi=0 TO Í00 
30 PQKE 164-24- , 70 
48 NFVT fi 


"TEREMÜTQ 


FIGURA 9 
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- Informática. u - Comunicaciones. 

- Inteligencia Artificial. - Impacto Social. 

SIMPOSIOS: - o 

o 

- Sector Público. - Educación. 

- Banca. - Productividad. 

- Pequeña y Mediana Empresa. - Salud. 

- Derecho y Ciencias Sociales. - Tecnología. 

- América Latina - Medios de Comunicación. 

LA PRESENTACION DE TRABAJOS PARA EL CONGRESO VENCE EL 9-3-88 

Organiza usuaria 

Asociación Argentina de Usuarios de la Informática y las Comunicaciones. 

Rincón 326 (1081) Capital Federal - TE. 47-2631 2855. 


UNION INDUSTRIAL ARGENTINA, PLAZA HOTEL Y SHERATON HOTEL 
DEL 9 AL 13 DE MAYO DE 1988. 


AREAS: 


COMPUTACION Y COMUNICACIONES 

PALANCAS PARA EL PROGRESO 









HAGANSE SOCIOS !*! 
tendrán muchas ventajas 

DESCUENTOS ENTRE 5 Y 25 % ~ 

EMPRESAS ADHERIDAS 


CAPITAL Y GRAN BS. AS. 


ACCOUNT: Av. Gaona 1458 - Capital; en 
Software y Accesorios. ACUARIO: Av. Riva- 
davia 7731 - Capital; en Cursos. ATENEA: 
Cerrito2120-ex 11-San Martín-Pcia.Bs. As.; 
en Cursos; en Cartuchos y Utilitarios. CEN¬ 
TRO DE COMPUTACION: Campichuelo 
365 - Capital; en Cursos. COMPU TAILOR: 
Brown 749 - Of. 6 - Moron - Peía. Bs. As.; en 
Máquinas; en Casetes y Accesorios. CORSA¬ 
RIOS: Olavarría 986 - I o P. Of. 1 y 4 - Capi¬ 
tal; en Software. CP 67: Florida 683 -Local 18 
- Capital; en Libros; en Computadoras; en Ca¬ 
setes y Disquetes. CLUB TI Y COMMODO- 
RE: Av. Pueymedón 860 - 9® P. - Capital; en la 
Inscripción al Club. COUHUE LIBROS: En¬ 
tre Ríos Estación Callao, Subte “B” -Capital; 
en Libros. DISTRIBUIDORA CUSPIDE: 
Suipacha 1045 -Capital; en Libros. DISTRI¬ 
BUIDORA PARI: Batalla de Parí 512 - Capi¬ 
tal; en Manuales - Juegos y Utilitarios. DYPE- 
A: Paso 753 - Capital; en Servicios. ELSE 
COMPUTACION: Valentín Gómez 3202 
Esq. Anchorena - Capital; en Software para C- 
16. ESA (ELECTRONICA SUDAMERICA¬ 
NA): Ledislao Martinez 18 - Martinez - Capi¬ 
tal; en todos los cursos. Cursos de Introducion; 
en programas de disco de MSX; en disquetes. 
GABIMAR: Pasteur 227 - Capital; en Sofwa- 
re y Accesorios. GAMA COMPUTACION: 
A. del Valle 1187 - Capital; en Cursos en Soft 
HAL S. A.: Av. Belgrano 2938 - Capital; com¬ 
pra al contado e n com putadoras; Dátaseles o 
Disqueteras. INSTITUTO HOT-BIT: Carlos 
Casares 997 - Castelar - Pcia. Bs. As.; Inscrip¬ 
ción gratuita en cursos; en Joysticks y Acceso¬ 
rios. INTELEC: Paraná 426 - 2° Cuerpo - Pf. 
44 1" - Capital; en Service y Productos. LIBRE¬ 
RIA YENNY: Av. Rivadavia 3860/4975 - Ca¬ 
pital; en Libros. MANIAC: Av. Rivadavia 
13734 - Ramos Mejía - Pcia. Bs.As.; en Soft y 
Ac cesor ios; en Teclado musical. MICRO E- 
LECIRONICA: Av. Libertador 3994 - La Lu¬ 
cila - Pcia. Bs. As.; en Disquetes y Libros; Por 


compra de máquinas Commodore o una com¬ 
pra mayor a los australes 30, se entrega un ob¬ 
sequio. MICROMAUCA: Av. Córdoba 1598 
- Capital; en Accesorios y Software. NA- 
DESHVLA: Av. Rivadavia 6495 - Capital; en 
Software. NUCLEONICS SERVICE: Avella¬ 
neda 3731 - Olivos - Pcia Bs. As.; en Servicio 
Técnico para C-64 y C-128. PYM SOFT: Sui¬ 
pacha 472 - 4® P. Of. 410 - Capital; en Fundas 
para Commodore. 128; en Joysticks; en Dupli- 
dicks. RANDOM: Paraná 264 - 4® P. “45” - Ca¬ 
pital; en Fast Load. RILEN: Bolivar 1218 - Ca¬ 
pital; en Software. SERVICE SAN CAYETA¬ 
NO: Zapata 586 - Capital; en Service para 
Commodore. SERVICIOS INFORMATI¬ 
COS BS. AS.: Avellaneda 1697 - Virreyes - 
Pcia. Bs. As; en Software.. STAR SOFT: 
Humberto 1® 1789 - Capital; en Accesorios; en 
Software. THRON: San Luís 2599 - Capital; 
en Drean Commodore; en Software. TEC- 
NARG: Yerbal 2745 - P.B. “3” - Capital; en 
conversión TV a monitor 80 col.color, en Ser¬ 
vicio técnico para C-128. VEL ARGENTINA: 
Rawson 340 - Capital; en Interface; en Servi¬ 
cio Técnico todas las máreas. VICOM: Av. 
Córdoba 1598 - Capital; en Accesorios y Soft¬ 
ware. 

INTERIOR DEL PAIS 


BUENOS AIRES: MASTEMO COMPU¬ 
TACION: 25 de Mayo 90, 2900 SAN NICO¬ 
LAS; en Cursos Lenguaje BASIC. SERCOM: 
Calle 61 N® 2949,7630 Necochea; en compra 
Línea TALENT. 

CORDOBA: CEPRICYC COMPU¬ 
TACION: Bedoya 1195, 5000 ALTA COR¬ 
DOBA ; en Curso Logo, en Curso BASIC. 
JUAN CARLOS TRENTO:9 de Julio 80 - 
TE.20982/20923 - 5900 VILLA MARIA - 
CORDOBA; en Computadoras; en Periférco. 
CORRIENTES: INSTITUTO “COMPU- 
DATA”: La Rioja 807, 3432 Bella Vista; en 
Cursos de Computación; en Soft y Accesorios; 
Cuota de Ingreso gratis para Club de Usuarios. 


CHACO: FRANCO SANTI: Carlos Pellegri- 
ni 761, Resistencia; en Equipos, Consolas y 
Periféricos; en Software. 

ENTRE RIOS: INGENIO S.R.L.: Urdina- 
rrain 50, TE. 21-3229, 3200 Concordia; en 
Soft y Accesorios; en Inscripción a cursos re¬ 
gulares CURSOS GRATUITOS DE INTRO¬ 
DUCCION A LA COMPUTACION. PROA 
DEPARTAMENTO DE COMPUTACION: 
España 12, TE. 4832/3260, CONCEPCION 
DEL URUGUAY; en Software Utilitario y de 
Aplicación; en Casetes de Juegos y Software; 
en Juegos desarrollados encasa Proa. MAS¬ 
ENTE Y CORTOPASSI S. R. L.25 de Mayo 
Esq. Pte. Perón-3100 PARANA -T.E.: 21- 
1590INSUMOS PARA COMPUTADORAS 
JUJUY: TRES-E COMPUTACION: Salta 
1108,4600 SAN SALVADOR DE JUJUY; en 
Equipos; en Software y Accesorios. 
NEUQUEN :MICROCOMPUTACION C.H. 
Rodrigiez 374- 8300 NEUQUEN- T.E. 34- 
293. Sotware - Hardware. 

SALTA: DELTA COMPUTACION: Case¬ 
ros 873,4400 SALTA; en Equipos; en Softwa¬ 
re y Accesorios. MIGUEL LlAO: Balcarce 
308,4400 SALTA; en Equipos Drean y Toshi¬ 
ba; en Software, Accesorios y Libros. 
SANTA CRUZ: PROSUR S.R.L.: Av. San 
Martín 1021, 9400 RIO GALLEGOS; en Ac¬ 
cesorios en general; en Papel; en Disquetes; en 
Cartuchos limpiacabezales de grabadores. 
SANTA FE: ESTUDIO LOGO: Av. San Mar¬ 
tín e H. Yrigoyen, Galería AGUI, Local 2, 
2919 VILLA CONSTITUCION; en Cursos: 
LOGO-BASIC-DLAGRAMACION-UTTU- 
TARIOS-DOCENTE. ZAMPARDI MAIDA 
& ASOCIADOS: Moreno 1623,4® piso, 2000 
ROSARIO, TE: 67-203; en Software; en Ac¬ 
cesorios. COMPUSHOW S.A.: Entre Ríos y 
Cda. Ricardone- 2000 ROSARIO - T.E.21- 
5534. ON UNE : Córdoba 955 - Local 17 - 
9non wn^AííTn 

TUCUMAN: ELECTROMANIA:Buenos 
Aires 698, 4000 SAN MIGUEL DE 
TUCUMAN, TE.:21-3131; en Accesorios. 


INSCRIPCION GRATUITA 

Nombre y apellido. 

Dirección 


Pknk ob te ner u credencial, envíen el Cupón a nuMtra dirección. Deb e r án roártrlm a 1c* 30 día». 

A lo» que viven en el mterior «cía» nanitireino» por corroo. 


Localidad. 


ce: 


Provincia 

Edad 


Tel. 


. Ocupación. 


Comp. 


D.N.I. 


Editorial PROEDI S.A. Paraná 720,5 a piso, CJ». 1017. Buenos Aires. 
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RANKING DE PROGRAMAS 

Para participar en los sorteos mensuales deberán enviar el talán correspondiente indicando cuáles son los cuatro 
programas que les gustan más y a qué máquina corresponde cada uno. Entre los cupones se sortearán dos libros 
y cinco casetes.Los premios se entregarán en la administración de la editorial. Los que no puedan concurrir 
pueden solicitar el envió pagando el franqueo contrarrembolso. Los premios podrán ser reclamados dentro de los 

120 días después de haber sido anunciados. 

LOS MAS VOTADOS 


Mes de permanencia: 12 

Tendencia: t 
Computadora: A-C-MS 


•J 



08 


n 


Mes de permanencia: 12 

Tendencia: * 
Computadora: C-S-M 


Mes de permanencia: 10 

Tendencia: ^ 
Computadora: C-S 


Mes de permanencia: 

Tendencia: t 
Computadora: C 


COPYRIGHT CAPCOM 1985 
PRESS PIRE TO START 


COMMANDO 



W 


IMPOSSIKLK 

¡VIISSION 



GREEN BERET 


1942 


A: Atari C: Commodore M: MSX S: Spectrum 


MISION 

IMPOSIBLE 


GANADORES DE NOVIEMBRE 


l 2 PREMIO 

2 - PREMIO: 


2 libros (2 ganadores) 

Edgar Orlando Franco Socio 

N s 066 ; Martín Brunas 2603 

5 casetes (5 ganadores) 

Juan E. Griguelo Socio N°2255;César Suito 1043; Horacio D. Novello 2376 
Eduardo Rodríguez 2194 Mariano I. Piccini 035 

Para participar en este concurso no es necesario comprar la revista. 
Pueden retirar el formulario en nuestra casa: 

EDITORIAL PROEDI S.A, Paraná 720, 5 piso (1017) Capital., 


Los cinco programas que más me gustan son: 





Nombre y apellido 


Socio N s : 

Edad 

Máauina: 


Qué es lo que más le gusta de K 64 

Que le agregaría^ 

, Que es lo que no le gusta 





TTT 

— 



ÍSE 

w 

7 

1-f 

H 

TTT 

J L 


ru 













































































































































































































































K-TEST 


GANADORES DEL SORTEO N*12 


l 2 PREMIO: 3 libros (3 ganadores) 


Lucio H. Dinoto Socio N-2258 ;José A. So- 
cias 462; Miguel A. Gillin 1763 


2 - PREMIO: 5 casetes (5 ganadores) 

Ricardo H. Manzino Socio N 9 2348; Susana B. 
Martínez 2068 ; Augusto Betta 833 ; Martín 
Olivares 1297 ; Daniel López Welcz 2660 


RESPUESTAS CORRECTAS DEL K-TEST N 2 11 


1: Norma de video. 2: Abre un canal para recibir datos. 3: 640 K. 4: Compact 
disk read only memory. 5: poke 56579,0. 6: Se dedica al manejo de errores y sus 

mensajes. 


K-TEST N 2 15 CIERRE 26 DE FEBRERO (PARA SOCIOS) 


l 2 PREMIO: 

Tres libros (tres ganadores) 


2 2 PREMIO: 

Cinco casetes (cinco ganadores) 


Para participar en este certamen deben señalar cual es la información correcta que presenta cada ítem. 
Para quienes necesiten ayuda las respuestas pueden encontrarse en los últimos tres números de K 64. 
Junto con las respuestas deben remitir los datos en el correspondiente cupón. Los premios se' 
entregarán en la administración de la editorial. Los que no puedan concurrir pueden solicitar el envió 
pagando el franqueo contrareembolso. Los premios podrán ser reclamados dentro de los 120 días 
después de haber sido anunciados. 


1) La computadora CRAY-2 tiene una velocidad de trabajo máxima de: Q 250 millones de operaciones 
por segundo. □ 1720 millones de operaciones por segundo. 

2. El archivo de Imagen de la Spectrum comienza en la dirección: □ 16.384 Q 22.552 

3. La primera transmisión de imágenes digitalizadas hechas por las naves RANGER 7,8 y 9 se realizó 
desde una distancia de: □ 17.267 millones de Km. □ 77.232 millones de Km. 

4. El DOS 2.0 de la disquetera 1050 de Atari, permite almacenar en los discos: □ 90 Kbytes □ 120 
Kbytes. 

5. El comando TEST del Simon’s Basic sirve para: □ Verificarla correcta operación de la computa¬ 
dora. □ Verificar si un pixel está encendido. 

6. ¿Cuál es el alcance máximo de una madera 5 en el soft “LEADER BOARD”?. □ 250 yardas. □ 
230 yardas. 


Para participar en este concurso no es necesario comprar la revista. Pueden retirar el formulario en 
nuestra casa: 


Nombre v apellido 



Socio N fi : 


Dirección: 

Documento: 

Edad: 

Máquina: 



Que es lo que más me gusta de la revista: 




l i 1L1 1 1 ‘ J 


Que le agregaría: 

» 

Que es lo que no me gustar 
























































THE 128 CANNON 


La llegada de este arsenal de copiadores y otros utilitarios indispensables coincidió, de manera ab¬ 
solutamente ocasional, con el lanzamiento oficial de la C-128 en nuestro país. The 128 Cannon 
presenta a Krackerjax al menos como su mentor intelectual, si es que no se trata del seudónimo 
de su creador, y tiene como distribuidor en Estados Unidos a la Patech Software, Inc. 
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u lanzamiento data de 
este año y es para 80 
columnas. La batería 
de programas, inclui¬ 
da la autocarga, ocu¬ 
pa 551 bloques. 

The 128 Cannon copia todo. Para la 
64,128 (una o las dos caras del dis¬ 
co), CP/M e IBM. Leyó bien: tam¬ 
bién IBM. Puede funcionar con una o 
dos disqueteras. Estos periféricos 
pueden ser el tradicional 1541 o el 
1571. En realidad, se trata de 8 pro¬ 
gramas con un nombre común, divi¬ 
didos en cuatro copiadores y cuatro 
utilitarios que a continuación pasa¬ 
mos a describir. 

Los copiadores se llaman Fast Co- 
pier, donde para una réplica de una 
cara se tarda alrededor de medio mi¬ 
nuto, pero aquí la velocidad está en 
relación inversamente proporcional 
a la debilidad frente a las proteccio¬ 
nes; luego viene el Nibble Copier, 
con control de errores y frente al cual 
es difícil que haya alguna protección 
o barrera que lo detenga; en tercer lu¬ 
gar aparece el File Copier, indispen¬ 
sable para hacer copias archivo por 
archivo, de regular efectividad frente 
a programas protegidos o que tienen 
errores de “crackeo”; y por último a- 
parece el MFM Copier, para IBM. 
El manejo de este arsenal es suma¬ 
mente sencillo porque trae menúes 
que son simples y claros. Además, 
para ingresar a las diferentes opcio¬ 
nes se pueden usar indistintamente 
las teclas F o las letras del teclado. 
Por supuesto, a cada uno de los copia¬ 
dores se le puede indicar con qué can¬ 
tidad de disqueteras estamos traba¬ 
jando, de qué modelo se trata, si que¬ 
remos copiar una cara sola o las dos, 
de qué track a qué track vamos a co¬ 


piar, pudiéndolos repetir de a uno si ha 
habido algún error. El Nibbler, que 
obviamente es el más lento, copia una 
cara entera en cuatro pasadas de disco. 
Los otros utilitarios también resultan 
indispensables para las tareas de “co¬ 
cina” de una computadora. Por ejem¬ 
plo, el Directory Editor es de suma u- 
tilidad para reordenar o arreglar un di¬ 
rectorio. El Error & Density Display 
hace en pantalla un mapa de los tracks 
y sectores del disco que están ocupa¬ 
dos, con qué lo están y si hay proble¬ 
mas. El K. J. Parameters ya es para 
tareas más delicadas, como la copia 
con parámetros especiales. Por últi¬ 
mo, casi como un lujo, para lo cual hay 
que pasar al equipo al modo 40 colum¬ 
nas, aparece el Disk Doctor 128, ese 
insuperable equipo de “rayoscopía in¬ 
formática”, que permite ver a un pro¬ 
grama por dentro, arreglarlo, reescri¬ 
birlo, castellanizar las pantallas, etcé¬ 
tera. Aparte de otras virtudes, la apari¬ 
ción de The 128 Cannon termina con 
el problema de tener que andar con¬ 
tando con varios discos de copiadores 
y otros utilitarios, sacando uno y po¬ 
niendo otro según lo que se tiene que 
copiar. Con respecto al CP/M, termina 
con la lenta tortura que es el copiador 
que trae el sistema y también con las 
debilidades de un copiador especial 
que anda por ahí y que trae más disgus¬ 
tos que beneficios. Ahora, en menos 


de una cara de disco, se puede contar 
con lo necesario para disfrutar de to¬ 
da la potencia y posibilidades de la C- 
128. 

Alguno quizá pueda preguntarse para 
qué contar con la facilidad de un co¬ 
piador IBM. Lo que ocurre es que si u- 
san , por ejemplo, procesadores de 
texto en CP/M, esos archivos pueden 
ser “traducidos” con programas con¬ 
vertidores y viceversa. Archivos ge¬ 
nerados en procesadores de IBM pue¬ 
den ser rescatados a través de la 128. 
Así ocurre también con otros progra¬ 
mas. Por lo tanto, la utilidad es obvia, 
ya que no siempre se cuenta con los 
archivos convertidos y es necesario 
copiar directamente el disco produci¬ 
do por la PC IBM o compatible, lo 
cual acarrea problemas si no tenemos 
este equipo disponible y a mano. 

Es seguro que The 128 Cannon va a 
dejar de lado, en lo que hace a los u- 
suarios de la C-128, a otros copiado¬ 
res que han marcado etapas, como es 
el caso de los Fast Hack’Em o del no 
menos célebre Mike Henry. Por otro 
lado, salvo la honrosa excepción del 
Disk Doctor, el uso exclusivo del 
modo 80 columnas da la pauta de la 
tendencia a considerar que en una má¬ 
quina como la C- 128, si se la quiere u- 
sar con todo lo que ella puede dar, sal¬ 
vo los videojuegos, las 40 columnas 
son un arcaísmo. 













SPECTRUM 


VvVVvVVvV 


Dominando los gráficos 

(2 a PARTE) 


Sabiendo cómo ani¬ 
mar un sprite, aún nos 
falta algo importante: 
moverlo por la panta¬ 
lla. Veamos algunas 
rutinas específicas pa¬ 
ra hacer esto . 


C 


orno ya hemos visto en 
nuestra nota anterior, 
lograr la animación de 
un Sprite es una tarea 
sencilla. Para ello solo 
necesitamos un par de 
programitas en BASIC, más alguna 
rutina para crear el Sprite. 

Sin embargo, cuando queremos mo¬ 
ver nuestro gráfico a lo largo de la 
pantalla, las instrucciones provistas 
por el BASIC de la Spectrum ya no 
son suficientes. 

Si nos remitiéramos a utilizar las ór¬ 
denes tipo PRINT del BASIC, el mo¬ 
vimiento del Sprite sería muy brusco, 
ya que entre una posición y otra de la 
impresión habría ocho pixels. 

Por este motivo, debemos utilizar al¬ 
gunas rutinas en código máquina, que 
nos permitirán mover el Sprite con to¬ 
da suavidad a lo largo y ancho de la 
pantalla. 

Antes de pasar a las rutinas en sí, ve¬ 
amos cómo está organizado el archi¬ 
vo de imagen de la Spectrum. 


LA PANTALLA EN LA 
MEMORIA 


Toda la información que vemos en la 
pantalla generada por nuestra compu¬ 
tadora no es más que el fiel reflejo de 
una zona de memoria de la RAM de 
la misma. 

Por lo tanto, para mover un Sprite por 
la pantalla independientemente de las 
instrucciones del BASIC debemos 
conocer a fondo la organización del 
archivo de video de la Spectrum. 

Si tuviéramos que definir la forma en 
que los diseñadores establecieron el 
orden del archivo de video de la Spec¬ 
trum, podríamos utilizar la palabra 
“retorcido”. 

Es posible imaginar que el archivo de 
video se encuentra formado por tres 



líneas muy largas, cada una constitui¬ 
da por 256 caracteres. 

Cada una de ellas ocupa un tercio de 
la pantalla de la Spectrum, en forma 
horizontal, y comienza en una zona 
distinta de memoria. 

Cada uno de los caracteres que for¬ 
man las líneas está compuesto por o- 
cho bytes. Entoces, cada una de estas 
líneas imaginarias está formada por 
ocho líneas de imagen en la pantalla. 
Así un carácter, por ejemplo el cuarto, 
estará constituido por un byte que o- 
cupe la dirección 0+4, otro que ocu¬ 
pe la dirección 25644, otro por la 
51244, y así sucesivamente hasta for¬ 
mar los ocho bytes que componen el 
carácter. 

En la figura 1 podemos ver un esque¬ 
ma de lo que acabamos de exponer. 
Si pasamos estas direcciones a hexa- 
decimal, veremos que el primer byte 
ocupará la dirección “X004”, el se¬ 
gundo la “X104”, el tercero la 
“X204”, y así sucesivamente. 

Si la dirección de un carácter estuvie¬ 
se almacenada en el registro HL, para 
poder direccionar los ocho bytes co¬ 
rrespondientes al mismo deberíamos 
ir incrementando el valor de H ocho 
veces. 

Como el formato de la pantalla de la 
Spectrum es de 32 por 24, cada línea 
imaginaria de 256 caracteres es corta¬ 


da luego del carácter número 32, con¬ 
tinuando en la línea siguiente de la 
pantalla. 

Dentro de este esquema, si quisiéra¬ 
mos imprimir un carácter en una posi¬ 
ción estándar, no tendríamos mayores 
problemas. Tan solo se debería ir 
mandando bytes al archivo de video, 
mientras se va incrementando el valor 
del registro HL, como mencionamos 
antes. 

Pero nuestro problema reside justa¬ 
mente en que no queremos imprimir 
en las zonas de siempre, sino por e- 
jemplo entre dos líneas, lo cual es im¬ 
posible desde BASIC. 

Aquí comienzan los problemas, y no 
se imaginan las cuentas que habría 
que hacer para dar la solución de esto. 
Sin embargo, la misma dificultad la 
tuvieron los diseñadores de esta má¬ 
quina. Por lo tanto, dentro de la ROM 
de la Spectrum existe una rutina lla¬ 
mada PIXEL-AD, que nos resuelve el 
problema. Esta rutina se encuentra lo¬ 
calizada en la dirección 22AA (hexa- 
decimal), y trabaja del siguiente mo¬ 
do. 

Cuando llamamos a la rutina, manda¬ 
mos en el registro BC las coordenadas 
X e Y de un determinado punto de i- 
magen. 

Como resultado del CALL, obtene¬ 
mos en registro HL la dirección de 
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FIGURA 1 
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Listado 2 


PRINT "XXXXXXXXXXXXXXXXXXXX 
XX--XXXXXXXX" 

IC RRNDOHIZE USR 614.40 


memoria en que se almacena ese pi- 
xel. A su vez, dentro de este byte ne¬ 
cesitamos conocer con precisión la 
posición del bit correspondiente al pi- 
xel en cuestión. 

Este dato se encuentra almacenado en 
el registro A. 

Con este respaldo de conocimientos, 
podemos pasar (por fin) a las rutinas 
para hacer correr al Sprite de aquí pa¬ 
ra allá. 


DJNZ trabaja sobre el registro B, que 
es utlizado para localizar el carácter. 
En nuestro ejemplo, las coordenadas 
iniciales del registro BC son 172,88 
que, pasadas a su forma hexadecimal, 
forman el número AC58. 

Para que vean bien el efecto de esta 
rutina, les aconsejamos probar con el 
programa BASIC del listado 2. 

En conclusión, para que nuestro ca¬ 
rácter “corra” verticalmente por la 
pantalla solo debemos ir cambiando 
el valor asignado al registro BC. 


MOVIMIENTO 

HORIZONTAL 


En el listado 3 podemos ver el progra¬ 
ma que realiza este movimiento. 

En el mismo, después de almacenar la 
dirección en el registro BC, se llama a 
la rutina PIXEL-AD. Luego se pasa el 
valor del registro A al C. 

En este caso, la rutina imprimirá los 
caracteres gráficos correspondientes 
a las letras A y B, ya que estos son los 
valores cargados en los registros HL 
y.DE( direcciones FF58 y FF60). El 
efecto resultante será una rotación 
compuesta por los dos caracteres. 

En el listado 4 podemos ver un ejem¬ 
plo de como se ven las cosas al ejecu¬ 
tar esta rutina. 


MOVIMIENTO 

VERTICAL 


El método consiste en almacenar en el 
registro BC la coordenada superior 
izquier da del carácter, y con este va¬ 
lor llamar a la rutina PIXEL_AD. 
Una vez que tenemos la dirección en 
el registro HL, almacenamos el pri¬ 
mer byte del carácter en esta direc¬ 
ción, y continuamos con el siguiente. 
Este proceso se repite ocho veces, 
hasta completar el carácter. El listado 
1 nos da el programa que realiza esta 
función. Como se puede ver, se han u- 
tilizado los registros alternativos para 
esta función, ya que la instrucción 

Listado 3 


Para desplazar un carácter en forma 
horizontal, debemos ir moviendo ca¬ 
da byte del mismo hacia un costado, 
ocupando otra posición de impresión 
en la pantalla. 

Esto se logra por medio de la instruc¬ 
ción RRA. Para saber cuándo alcan¬ 
zamos la posición correspondiente, 
tendremos que utilizar el valor alma¬ 
cenado en el registro A luego de lla¬ 
mar a la rutina PIXEL-AD. 


Listado 4 


XX 

¿ 


0 PRINT "XXXXXXXXXXXXXXXXXXXX 
XXXXXXXX“ 

0 RRNDOHIZE USR 614-72 
C PRINT RT 1,Id;" hB w 
O PRINT RT 2.10; *‘R B" 


MOVIENDONOS POR LA 
PANTALLA 


Por medio de estas dos rutinas tene¬ 
mos un nuevo grado de movimiento 
para nuestros caracteres gráficos. 

Ya no estamos limitados a las posicio¬ 
nes de impresión del BASIC, y de es¬ 
ta forma el viaje de nuestros persona¬ 
jes a través de la pantalla puede ser 
suave y “creíble”. 

A partir de ahora, dejamos en sus ma¬ 
nos aplicar estas rutinas, y hacerlas 
formar parte de algún programa más 
complejo, ya que esta es la finalidad 

de las mismas. 
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EL SOFT 


ANTI-HACKER 



Cuando en Buenos Aires arrecian las versiones y desmentidas acerca de la existen 
cia y actividad de los hackers nacionales, y mientras el fenómeno de las telecomu¬ 
nicaciones sigue creciendo en la medida que la crisis lo permite, la irrupción 
deCryptoFile en el mer¬ 
cado no parece demasia¬ 
do ocasional. 


rypto-file es de Tony 
Solomon y fue realiza¬ 
do para la Manage¬ 
ment System en su se¬ 
rie Proffessional Se- 
curity. El programa data de 1985. La 
necesidad de este tipo de productos o- 
bedece a un fenómeno que es mun¬ 
dial. La proliferación del uso de mi- 
crocomputadoras, y también el boom 
de las telecomunicaciones, ha hecho 
que cada día se piense más EN ASE¬ 
GURAR LA TRANSFERENCIA 


DE MENSAJES. Esta seguridad in¬ 
cluye a aquellos que se envían entre 
usuarios. 

Este programa, que en el fondo no es 
más que un “procesador de texto pa¬ 
ra agentes secretos”, si se lo quiere 
ver de ese modo, permite enviar con 
un 99% de tranquilidad mensajes a 
través de BBS o disquetes con archi¬ 
vos a amigos o socios. Sobre todo se 
apunta a aquellos que tienen que en¬ 
viar información y que no quieren que 
ésta pase por los ojos indiscretos de 
un operador, paso insalvable en cual¬ 
quier tipo de sistemas telemáticos. 
Lo que hace CF es guardar mensajes 
en archivos secuenciales. Según sus 
distribuidores, la posibilidad que tie¬ 
ne un indiscreto que intercepte el 
mensaje de decodificarlo es de una 
sobre cien millones. Porque precisa¬ 
mente la recodificación se hace sobre 
el número que el usuario elige entre el 
1 y el 99.999.999 “Se trata del mismo 
método que se usa para asegurar algu¬ 
nos de los documentos más confiden¬ 
ciales del mundo”, afirma el propio 


Tony Solomon. El usuario debe tener 
solamente dos preocupaciones: que el 
destinatario sepa la cifra usada para 
guardar el mensaje y que esta cifra no 
caiga en manos de ningún tercero. He¬ 
chas estas salvedades, la seguridad es 
casi total. 

En cuanto a los procesadores de texto 
con que pueden originalmente estar 
hechos los mensajes, CF sólo exige 
que se usen el PET ASCII o C=ASCII. 
También exige USAR SOLAMEN¬ 
TE MINUSCULAS, ya que a las ma¬ 
yúsculas no las “entiende” y, por lo 
tanto, le resultan imposibles de guar¬ 
dar con el resto del texto. 

CF es de un manejo absolutamente 
sencillo. Al menor error que se come¬ 
te, hay que pulsar <—, en el extremo 
superior izquierdo del teclado, y lue¬ 
go RETURN para volver al menú 
principal. En cambio, la flecha hacia 
arriba, ubicada al lado de RESTORE, 
debe ser usada para indicarle al pro¬ 
grama que se ha llegado al fin del 
mensaje. Este carácter permite una 
más rápida decodificación. 


El menú principal de CF consta de 6 í- 
tems: 

* crear código de seguridad 

* decodificar mensaje guardado 
que está en disco 

* codificar mensaje en un archivo 
secuencial 

♦comandos de disco 

* listar el directorio del disco que 
está en el drive 

* quitar CF y volver al BASIC. 

Si se elige la primera opción, lo pri¬ 
mero que pide es la fecha con el for¬ 
mato DD MMYY, o sea, seis dígitos 
para indicar respectivamente el día, el 
mes y el año. Luego hay que ponerle 
un nombre al archivo que contendrá el 
mensaje guardado y en tercer lugar se 
debe proceder a poner el ID especial o 
clave, que consiste en un número en¬ 
tre uno y nueve dígitos. 

Ejemplo: 000346010. Recuerde que 
no pueden ir letras ni ningún otro sig¬ 
no. Además, como medida de seguri¬ 
dad, el programa, una vez ingresada la 
cifra, la que en pantalla es reemplaza- 





da por asteriscos, pide que se le repi¬ 
ta para confirmar. Cumplida esta tare- 
a, se puede comenzar a teclear el men¬ 
saje como si se tratara de un procesa¬ 
dor cualquiera, con el único recaudo 
de no usar mayúsculas y no olvidarse, 
al final, como cierre, de pulsar la tecla 
de flecha arriba. 

La forma con que se puede ingresar, 
según las instrucciones, es con una lí¬ 
nea por vez, y ésta no puede tener más 
de 79 caracteres. Una vez ordenado el 
final con la flecha hacia arriba, se de¬ 
be pulsar RETURN y la pantalla toda 
comenzará a titilar mientras dure el 
proceso de almacenamiento del men¬ 
saje, según la fórmula matemática in¬ 
gresada con la cifra del ID especial. 
Para realizar el proceso inverso, es 
decir, saber qué dice un mensaje guar¬ 
dado q ue nos ha sido enviado, hay 
que elegir la segunda opción del men¬ 
saje principal. Allí se nos pedirá el 
nombre del archivo tal como está re¬ 
gistrado en el directorio y, al igual que 
en la secuencia anterior, que por se¬ 
gunda vez le confirmemos la cifra del 


0 

ID . Recuerden: ESTA PUEDE TE¬ 
NER HASTA NUEVE (9) DIGITOS. 
Es decir que puede ser tranquilamen¬ 
te de un sólo número, como por ejem¬ 
plo el 0, aunque sea un tanto riesgoso. 



pero puede tener cuatro, cinco, tres o 
seis cifras. Nueve es el número tope. 
Cumplido esto, ingresadas las órde¬ 
nes con RETURN, el programa revi¬ 
sará los datos y, de manera si se quie¬ 
re asombrosa o fantástica, nos devol¬ 
verá en la pantalla, de un galimatías i¬ 


ninteligible de letras, números y de¬ 
más, un mensaje común y corriente 
con la información más variada. 

A pesar de toda la polémica que hay . 
sobre los hackers, como al igual que 
los fantasmas, ellos no existen, pero 
que los hay los hay.CF es un muy se¬ 
rio escollo que se agrega a los que ya 
han tenido que sortear si consiguieron 
ingresar clandestinamente a una base 
de datos o si, con las facilidades que 
dan los BBS, se ponen a fisgonear 
dentro de los mensajes privados. Ade¬ 
más, con este programa, entre dos a- 
migos, socios o personas que necesi¬ 
tan comunicarse periódicamente por 
correo electrónico, con sólo ponerse 
de acuerdo en un ID pueden “cartear¬ 
se” telemáticamente a despecho de 
las miradas indiscretas de los opera¬ 
dores de sistemas y del “alma voyeur” 
que anida en el fondo de cada hacker. 
Sin contar, claro, que escondiendo 
mensajes con fórmulas matemáticas, 
uno pueda llegar a sentirse un poco 
miembro de la CIA. 

/ 
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Dato a computar: 
Todas las cintas, 
cassettes y diskettes 
están en la línea 
informática de 
Pelikan. 

Nacieron de los Centros de Investigación 
y Desarrollo de Pelikan, donde los más avanzados 
equipos de ingenieros, profesionales en electrónica, 
químicos y especialistas en tintas, films y fibras, 
incorporan permanentemente nuevas 
ventajas a cada producto. 

Un ciclo de fabricación totalmente integrado, que 
abarca desde la generación de la propia materia 
prima hasta los más exhaustivos controles 
de calidad, permite asegurar niveles 
máximos de precisión y rendimiento. 

Antes de elegir cintas, cassettes y/o diskettes, 
consulte a Pelikan: en su amplísima gama está el 
producto exacto que su equipo necesita. 
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AGUSTIN MAGALDI 1904/30, C.P. 1286. BUENOS AIRES. 
Tel. 28-4907/5351/5352/6005, Int. 44 Ventas Especiales. 
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ESPECIFICACIONES 


Item 

Características 

Microprocesador 

Z80A 

Frecuencia de reloj 

3,58 MHz 

Memoria principal 

128 KB RAM 

Memoria del sistema 

80 KB ROM 

Memoria de video 

128 KB RAM 

Software incorporado 

En la memoria ROM se incluye 
MSX-BASIC, Versión 2.0 con 
mensajes en castellano, 
Soporte de RAM DISK, 
Compilador Turbo BASIC y 
Accesorios (Calculadora, Reloj, 
Calendario y Juego de Quince). 

Salida de pantalla: 


VDP 

TMS9938A 

Modos de pantalla 

9 modos. 

Modos de escritura: 

32,40 ú 80 caracteres 
x24 líneas. 

Modo de alta resolución 

256 x 192 puntos, 16 colores. 

Modo multicolor 

64 x 48 bloques de 4 x 4 puntos, 

16 colores seleccionadles 
entre 512. 

Modo gráfico 3 

Alta resolución con sprites 
multicolores y hasta 8 sprites 
por 1 ínea (modo 3 a modo 7 
inclusive). 

Modo gráfico 4 

Bit map de 256 x 212 puntos, 

16 colores seleccionadles 
entre 512. 

Modo gráfico 5 

Bit map de 512 x 212 puntos, 

4 colores seleccionadles 
entre 512. 

Modo gráfico 6 

Bit map de 512 x 212 puntos, 

16 colores seleccionadles 


entre 512. 

Modo gráfico 7 

Bit map de 256 x 212 puntos, 
256 colores. 

Sprites 

32 simultáneamente 
en pantalla. 

Color 

Un color por sprite o un color 
por línea de sprite (modo 3 a 7). 


MSX, MSX-DOS. MSX-plan, MS-DOS, son marcas registradas de ASCII-Microsoft Corporation. -CP/M 
es marca registrada de Digital Research. -LOGO: es marca registrada de Logo Computer Systems Inc. 
-Telemática: 1986. 

Todos los derechos reservados. Los datos y especificaciones que figuran en este impreso pueden ser 
modificados sin previo aviso. 

KO-Taient SERVICIO DE CONSULTA TELEFONICA PARA EL USUARIO: Tel.: 38-6601 
Lires a Viernes de 9 a 18,30 Hs. 


Teclado: 

Tipo: De desplazamiento completo 

con 73 teclas. 

Conjunto de caracteres Español e internacionales. 
Generador de sonido Compatible con AY-3-8910. 

Tres canales de sonido y uno 
de ruido- 8 octavas. 

Interfaz para casete Conector universal DIN de 

8 contactos para lectura/ 
grabación/control. 

Sistema de grabación FSK, a 1200 ó 2400 baudios 

en casete seleccionadles por programa 

en grabación y automático 
en lectura. 

Interfaz para impresora Paralelo tipo Centronics. 

Conexión para palanca Dos estándar, 

de mando (Joystick) 

Salidas de video 
y sonido: 

Monitor RGB analógico 

Video compuesto y audio Conector universal DIN de 

8 contactos. 

Televisor (TV) Conector RCA, con modulador 

PAL-N incorporado. 

BUS de color Conector de 20 contactos. 

Apto para sobreimpresión de 
imágenes, digitalización de 
video y conexión directa con 
lápiz óptico. 

BUS de expansión Ranura para conexión de 

cartuchos y conector de 
50 contactos. 

Interruptor Encendido/apagado. 

Selector de norma PAL-N/NTSC - 80 columnas. 

Dimensiones 400x225x74mm 

Alimentación 220 VCA, 50 Hz y 2 pilas 

alcalinas de 1,5V tamaño AA, 
para reloj permanente. 

Reloj con dos alarmas y calendario permanente con batería 
de backup. 

Almacenamiento permanente de parámetros preferidos del 
sistema, como modo de pantalla, color de fondo, señales 
auditivas, mensajes, etc. y password para control reservado 
de acceso. 

Totalmente compatible con software, accesorios y periféricos 
de MSX 1. 


Talent 

Tecnología yTalento 




BASIC-MSX 



SOBRE“ON” 


A veces , por falta de información o de práctica , muchos programadores no incor¬ 
poran algunas de las útilísimas sentencias BASIC con las que vienen las MSX. En 
esta oportunidad , nos dedicaremos a algunas de las sentencias “ON”. 
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as interrupciones son 
señales enviadas desde 
algún circuito hacia la 
CPU, para informarle 
que se necesita su aten¬ 
ción. Entonces, la uni¬ 
dad central graba los contenidos de 
los registros intemos a fin de poder 
continuar con el trabajo, luego de ser 
atendida la interrupción. 

Un ejemplo de este estilo de trabajo 
sobre nuestra computadora es la ac¬ 
ción de la tecla STOP. Al presionarla 
una vez, se interrumpen todas las tare- 

FIGURA 1 


10 ON KEY GÚSQB 1000 
20 KEY (1) ON 
30 SCREEN 2 
40 X1 = INT < RND <1)*254 > 

50 Y1 = INT < RND(1)*90) 

SO LINE -(XI,Yl) 

70 GOTO 40 
1000 SCREEN O 
1010 LOCATE 9,10 

1020 PRINT"Pre5iono la tela Fl" 
1030 IF INKEY$=" H THEN 1030 
1040 SCREEN 2 
1050 RETURN 


as que se continúan al presionar nue¬ 
vamente la misma tecla. 

Algo parecido ocurre al utilizar las 
sentencias ON. 

Estas son instrucciones en las que la 
computadora detecta ciertos casos es- 

FIGURA 2 


pedales en el sistema como un error 
en el programa BASIC, una tecla de 
función pulsada, la coincidencia entre 
dos sprites, etcétera. 

Ahora vamos a ver cómo se usan y pa¬ 
ra qué nos pueden ser útiles las sen¬ 
tencias ON KEY, ON INTER VAL y 
ON STOP. 

-ONKEY 

La instrucción ON KEY GOSUB..., 
se utiliza para desviar la ejecución del 
programa a una rutina cada vez que se 
detecte que una tecla de función fue 
presionada. 

La estructura de esta instrucción es: 

ON KEY GOSUB 

nl,n2,n3,...,n9,nl0 

Al oprimirse la tecla Fl durante la e¬ 


jecución del programa, el control sal¬ 
tará a la subrutina que comienza en la 
línea “ni”. Si se presiona la tecla F2, 
saltará a la subrutina “n2”, y así suce¬ 
sivamente. 

Como cada una de estas porciones del 
programa son tratadas como subruti¬ 
nas , deberán terminar con la sentencia 
RETURN. 

Con la orden ON KE Y..., la computa¬ 
dora está alerta por si detecta la pulsa¬ 
ción de una tecla de función; pero pa¬ 
ra que la máquina pueda “darse por 
enterada”, es necesario activar dichas 
teclas de función por medio de la sen¬ 
tencia KEY(n) ON, donde “n”es el 
número de tecla a activar. 

No hay que trabajar o activar forzosa¬ 
mente las diez teclas de función. En la 
figura 1 vemos un ejemplo donde la 
computadora dibuja una sucesión de 
líneas hasta que se pulse la tecla Fl. 
En la línea 10 declaramos el salto a la 
lútea 1000, ante el uso de la tecla Fl, 
mientras que en la línea 20 activamos 
la acción de la primera tecla de fun¬ 
ción. 

El orden de ambas sentencias puede 
invertirse sin alterar el funcionamien¬ 
to del programa. Experimentemos re¬ 
emplazando la línea 10 por la 20. 

Si en vez de activar la primera tecla de 
función solo queremos hacer esto con 
la séptima, se utiliza la sentencia 
KEY (7) ON. La manera de declarar 
el número de línea al que se debe de¬ 
rivar el programa frente a la pulsación 
de la tecla F7 es: 


10 KEY (7) ON 

20 ON KEY GOSUB 

,,,,,,1000 

• 

• 

10 KEY (10) ON 

20 ON KEY GOSUB , 

,,,,,,,, iooo 


10 KEY (3) ON 

20 ON KEY ,, 1000 




44 











































ONKEYGOSUB „„„ 1000 

Es decir, la tecla F7 saltará al número 
de línea especificada después de la 
sexta coma, F3 al siguiente de la se¬ 
gunda coma y F10 al de la novena co¬ 
ma (ver figura 2). 


FIGURA 3 


10 FOR F=1 

TO 

?“t 

20 KEY < F) 

ON 


30 NEXT 




Para activar varias teclas de función, 
proponemos dos ejemplos. El de la fi¬ 
gura 3 se utiliza cuando las teclas a ac¬ 
tivar siguen una secuencia ordenada 
(1,2,3;6,7,8). Pero esto no funciona¬ 
ría si trabajáramos sobre una secuen¬ 
cia como 2,3,7,9 ó 1,2,3,6. 

Por otro lado, podemos necesitar que 
en solo una parte del programa actúe 
la tecla de función. Para desactivarla, 

FIGURA 4 


i 0 

FO 

R F=i TU S 

20 

RE 

AD A 

30 

KE 

Y < A > ON 

40 

NE 

X í 

•30 

DA 

í A >! * - n U 3 :j 1 ü 


usemos KE Y (n) OFF, donde “n” es la 
tecla a desactivar. 

La pulsación de cualquier tecla de 
función desactivada no tiene efecto. 
Con un fin parecido podemos emple¬ 
ar la sentencia: 

ONKEY(n) STOP 

donde “n” es el número de función. 
Si presionamos la tecla de función, 
esta será ignorada, pero quedará re¬ 
gistrada. De esta forma, ni bien se 
vuelva a activar dicha tecla, la com¬ 
putadora “recordará” que fue pulsada 
y derivará el control del programa. 

-ON INTER VAL 

Las MSX se destacaron entre las com¬ 
putadoras del mercado por su com¬ 
pleto BASIC. Incorporaban senten¬ 
cias que en ese momento solo se en¬ 
contraban en equipos profesionales 
como las PC. 

Una de estas poderosas sentencias es: 
ON INTER VAL GOSUB. 

Esta instrucción establece la subruti¬ 
na de tratamiento de interrupciones, y 
el intervalo de tiempo con que se pro¬ 
ducen dichas interrupciones. 


a 

Al igual que la sentencia ON KEY, 
esta instrucción se puede activar: IN¬ 
TER VAL ON, o anular: INTER VAL 
OFF, en diferentes partes del progra¬ 
ma. Así podemos dejar, que este co¬ 
mando intervenga en algunas seccio¬ 
nes del programa que nos interesen o 
valgan la pena 

La estructura de la sentencia es: 

‘ON INTER VAL=xx GOSUB nn\ 
donde “xx” equivale al tiempo y “nn” 
a la línea donde comienza la subruti¬ 
na a donde se debe dirigir cada “xx” 
segundos. 

La computadora lee el teclado y ac¬ 
tualiza la variable TIME 50 veces por 
segundo. Para ejecutar este comando, 
la máquina cuenta cuántas interrup¬ 
ciones de este tipo se realizaron. Al 
llegar al valor “xx”, se desvía a la lí¬ 
nea “nn”. 

Una vez que se efectúa la interrupción 
de la sentencia ON INTER VAL, se 
produce automáticamente un IN- 
TERVAL STOP (se detiene el conta¬ 
dor). Es decir que el sistema deja de 
registrar las interrupciones de lectura 
del teclado y de actualización de la 
variable TIME. 

Al terminar de ejecutar la subrutina, 
se produce automáticamente una or¬ 
den INTER VAL ON para activar 
nuevamente el contador. Si queremos 
que el programa se derive a la subru¬ 
tina con un espacio de 10 segundos, la 
instrucción se escribirá: ON INTER- 

FIGURA 5 


i O 8CREEN 2 
20 INTERVAL. ON 
30 ON INTERVAL=500 GOSUB 90 
40 X i = í NT RNI) ( i ) *254 ) 

50 VI = INT < RND(I)*i70) 

60 CG—X NT <RND< í)* 14) 

70 LINE— < X i,Y1) ,CO 

80 GOTO 40 

90 SCREEN O 

i00 LOCATE 9,10 

110 PRINT"Tiempo cumplido" 

120 FOR F-1 TO 250sNEXT 

130 SCREEN 2 

i40 RETURN 


VAL=500 GOSUB 1000. 

La fórmula que se empleó para calcu¬ 
lar el tiempo es: “tiempo de demora * 
50”, ( 10*50 en nuestro ejemplo). 

Al terminar la ejecución de la subru¬ 
tina, podemos anular el reciclaje del 
sistema en el tratamiento de interrup¬ 
ciones, por medio de la orden INTER- 
VAL OFF. 

En la figura 5 vemos de qué manera 
podemos utilizar esta sentencia, que a 
propósito se halla muy poco difundi¬ 


da y aprovechada por los programa- 
dores. 

-ON STOP 

El comando ‘ON STOP GOSUB nn’, 
evita que se detenga un programa me¬ 
diante ‘CTRL’- ‘STOP’. 

Hay que tener cuidado con el uso de 
esta instrucción, porque puede entrar 
en un bucle sin fin, que nos obligue a 
hacer un reset en la computadora. Por 
este motivo, siempre es conveniente 
grabar nuestro programa antes de pro¬ 
bar su funcionamiento. 

El comando debe ser activado con 
STOP ON, como en los casos anterio¬ 
res. Entonces la computadora, antes 
de ejecutar una sentencia del progra¬ 
ma, analiza si se presionó <CTRL- 
STOP> para saltar a la subrutina de- 

FIGURA 6 

10 ON STOP GOSUB 80 
20 STOP ON 
30 SCREEN 2 
40 X1 = INT < RND <1)*254) 

50 Y 1 = I NT < RND(1)*1 80 > 

60 LINE —(XI,Y1) 

70 GOTO 40 
80 SCREEN O 
90 LOCATE 4,10 

100 PRiNT"Se presiono la tecla CT 
RL/STOP" 

110 FOR F=1 TO 400:NEXT 
120 SCREEN 2 
130 RETURN 

clarada. 

Este comando sin embargo no prevé 
la pausa del programa con la tecla 
STOP y tampoco la acción del co¬ 
mando BASIC STOP desde el mismo 
programa. 

Para desactivar desde éste, la acción 
del ON STOP GOSUB, se emplea 
STOP OFF. 

Hay una sola forma en la que un pro¬ 
grama protegido con esta instrucción 
puede ser interrumpido sin reset.Nos 
encontramos con ella cuando el con¬ 
trol entra en la subrutina de tratamien¬ 
to de error. Hasta que se halle una sen¬ 
tencia RESUME, todos los comandos 
ON son desactivados (pero este tema 
lo profundizaremos en otras entre¬ 
gas), 

Al finalizar la ejecución de una ruti¬ 
na de tratamiento de interrupción,la 
sentencia RETURN realiza automáti¬ 
camente un comando STOP ON. Si 
escribimos una orden STOP OFF 
dentro de la rutina, las teclas <CTRL- 
STOP> no son desactivadas y la ins¬ 
trucción RETURN tendrá el efecto 
normal. Por último, en la figura 6 pro¬ 
ponemos un ejemplo de uso. 
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MSX Y PC: QUE 
HAY EN COMUN 

Los sistemas operativos que equipan a las 
máquinas MSX y a las PC son dos de los 
más utilizados actualmente. La historia de 
ambos está intimamente relacionada,y por 
lo tanto tienen puntos en común que ni si¬ 
quiera imaginamos. Veamos algunos de e- 
llos. 


os sistemas operati¬ 
vos CP/M y MS- 
DOS fueron crea¬ 
dos por una necesi¬ 
dad de llegar a un 
estándar en la ela¬ 
boración de programas para una de¬ 
terminada línea de computadoras. 
Como el MS-DOS surgió luego del 
CP/M, selopuedeconsiderarcomou- 
na versión evolucionada de este, algo 
así como un sucesor. 

Por este motivo, las similitudes entre 
ambos sistemas no son pocas, y así se 
puede encontrar una lútea que rela¬ 
ciona a ambos. 

A continuación, veremos cómo se lo¬ 
gra esa vinculación analizando cada 
sistema operativo. Finalmente, vere¬ 
mos un ejemplo de un programa pre¬ 
parado para correr en una MSX bajo 
CP/M, y otro que realiza exactamen¬ 
te la misma función en una PC. De es¬ 
ta forma, podremos analizar los pun¬ 
tos en común de ambos. 

En notas anteriores se trataron super¬ 
ficialmente algunas de las caracterís¬ 
ticas de programación de un micro¬ 
procesador de 16 bits. A ese nivel se 
debe ser tan genérico como cuando se 
habla (o se escribe) sobre un “micro¬ 
procesador de 8 bits”. 

En los procesadores de 8 bits la base 
del hardware puede ser similar y, sin 


embargo, las características concre¬ 
tas de cada implementación harán ex¬ 
tremadamente difícil la generaliza¬ 
ción de un determinado programa. I- 
maginemos a modo de ejemplo las di¬ 
ficulta des de implementar un mismo 


programa en tres máquinas tan simi¬ 
lares conceptualmente como pueden 
ser una Radio Shack TRSSO, una 
Spectrum o una que corra bajo MSX 

Falta en estos casos un estándar, es 
decir algo que restrinja la infinidad de 
maneras en que puede implementarse 
cada aspecto particular de una máqui¬ 
na y permita hacerlo de una forma ú- 
nica y controlada. A su vez el estándar 


debe ser suficientemente rico como 
para no prohibir (o dificultar prohibi¬ 
tivamente) nada que no esté especifi¬ 
cado. 

En los procesadores de 8 bits este es¬ 
tándar fue por casi una década el sis¬ 
tema operativo “CP/M”. No es des¬ 
preciable la influencia que tuvo el 
mismo en la explosiva difusión de la 
computación personal. 

Este se hallaba orientado a computa¬ 
dores basados en procesadores 8000 
(luego 80) con hasta 64K de memoria 
RAM, que utilizaban como almace¬ 
namiento secundario uni dades de 
disco (disquetes exclusivamente por 
entonces). En general, cuando nos re¬ 
ferimos a procesadores de 8 bits utili¬ 
zaremos el Z80 como base y en el ca¬ 
so de 16 bits, el 8086/8088. 

El “CP/M” como sistema operativo 
no era (no es) especialmente podero¬ 
so y ciertamente tampoco uno de los 
más fáciles de usar. A nivel de “co¬ 
mandos” permitía hacer todas las ta¬ 
reas asocidas al uso de archivos en 
disco, tal como copiar un archivo o 
borrarlo, por ejemplo. 

Por otra parte formaba parte del “pa¬ 
quete” un conjunto de programas uti¬ 
litarios tales como un Editor, un As- 
sembler, una herramienta de debug- 


ging y el legendario “PIP” con el cual 
se podía hacer casi cualquier cosa me¬ 
nos recordar los comandos para usar¬ 
lo. 

A nivel interno CP/M especifica con 
bastante rigidez las formas en la que 
se debe hacer uso de la memoria, co¬ 
mo efectuar cualquier clase de inte¬ 
racción que implique el uso de un dis¬ 
positivo externo (teclado, pantalla, u- 
nidad de discos, etcétera), o llegar a 









como escribir un programa (si uno ha¬ 
ce caso a las indicaciones del están¬ 
dar, por supuesto). 

Fue con CP/M que se hicieron popu¬ 
lares una serie de conceptos claves en 
materia de sistemas operativos de PC, 
tales como la independización de los 
dispositivos físicos de hardware (fun¬ 
ción del BIOS) mediante funciones 
genéricas provistas por el sistema o- 
perativo o la transportabilidad de for¬ 
matos de archivos. 

El seguimiento del estándar permitió 
que un gran número de usuarios, po¬ 
seedores de cualquier máquina de la 
docena de las compatibles con este 
standard, pudiera adquirir o intercam¬ 
biar programas con mucha facilidad. 
Esto derivó en que fuera rentable es¬ 
tablecer “software houses” dedicados 
a la creación de programas comercia¬ 
les, pues la base de usuarios creció 
sustancialmente. Una serie de venera¬ 
bles paquetes de software creados pa¬ 
ra este sistema operativo se abren pa¬ 
so hoy en el mundo de las PC, tales co¬ 
mo dBase II, Multiplan o Wordstar. 
Por otra parte la contribución de miles 
de “hobbystas” creó un pool de miles 
de programas no comerciales (al me¬ 
nos en su concepción y distribución), 
muchos de ellos totalmente olvida¬ 
bles o mediocres pero también mu¬ 
chos que se constituyeron en clásicos 
de la computación personal. Este tipo 
de software se conoce habitualmente 
bajo el nombre de programas en el 
“Public Domain”. El solo intento de 
mencionar el más importante de cada 
categoría sería imposible. 

Hasta se vio el nacimiento de una cu¬ 
riosa forma de distribución denomi¬ 
nada “Shareware”, en la cual alguien 
hace un programa (que supone útil o 
deseable por alguna característica 
particular) y lo distribuye sin cargo al¬ 
guno. Entonces cualquiera puede co¬ 
piarlo o a su vez distribuirlo sin res¬ 
tricciones, pero quien lo use adquiere 
la obligación esencialmente moral de 
remitir al autor una suma de dinero en 
función de la utilidad que le conceda 
el programa (normalmente el mismo 
autor sugiere algún monto). 

Créase o no, algunos autores recibie¬ 
ron mucho dinero de este modo, pero 
lo principal del método reside en que 
programas realmente buenos se dis¬ 
tribuyen de esta forma en un paquete 
que normalmente contiene programa 


ejecutable, source y documentación 
de uso . Algunos clásicos como 
XMODEM (comunicación de datos) 
recibieron cientos de contribuciones 
y mejoras de las distintas manos por 
las que fueron pasando. 

Los BBS (Bulletin Board System), 
versión primigenia de los servicios de 
datos, deben su existencia a la dispo¬ 
nibilidad de un punto de referencia 
que hacía no solo útil sino también 
posible el intercambio de programas. 
El concepto mismo y la filosofía del 
CP/M se transfirió con la aparición de 
las PC a procesadores de 16 bits en la 
forma del sistema operativo conocido 
como DOS, si bien los parecidos son 
esencialmente conceptuales o de no¬ 
menclatura pues, como es obvio, la 
compatibilidad física no es práctica. 


A diferencia de los computadores ho¬ 
gareños de los cuales existen muchas 
marcas totalmente incompatibles en¬ 
tre sí, con la sana excepción de las que 
utilizan la norma MSX, las PC, sean 
IBM o compatibles con esta, trabajan 
en los caminos impuestos por el DOS 
, Con esto, de alguna manera se con¬ 
tinuó y potenció la tendencia a la cre¬ 
ación comercial de software nacida 
con CP/M, los programas en el domi¬ 
nio público y, por supuesto, el “Sha¬ 
reware”. 

En general la codificación de un pro¬ 
grama no es intrínsecamente más di¬ 
fícil en un PC (como particulariza- 
ción de un procesador de 16 bits) que 
en un típico computador de 8 bits; sin 
embargo, es bastante más frecuente. 
La enorme disponibilidad de recursos 
en un computador PC ha permitido la 
creación de programas extremada¬ 
mente flexibles, y poderosos y, en 
consecuencia, fáciles de usar; esto 


determina que no tenga sentido enca¬ 
rar la codificación (y debugging) de 
un extenso programa comercial cuan¬ 
do se puede lograr el mismo resultado 
luego de unos minutos de interacción 
con LOTUS 1-2-3 por ejemplo. 

Aun así, en caso de codificar un pro¬ 
grama hay una extensa garúa de len¬ 
guajes de alto nivel realmente pode¬ 
rosos, desde el ya clásico Turbo Pas- 
• cal al siempre vigente BASIC. 

En todos estos casos la interacción 
con el DOS es lo suficientemente su¬ 
perficial como para que no sean visi¬ 
bles sus funciones. 

Sin embargo, en aquellos programas 
que por sus características requieran 
hacerse en lenguaje de máquina, o 
con mayor propiedad en Assembler, 
es donde se nota mucho más próximo 


el real propósito del DOS como am¬ 
biente de ejecución. 

Intrínsecamente la programación en 
lenguaje de máquina de una PC (y por 
extensión de un procesador de 16bits) 
no es más compleja que en uno de 8 
bits, en especial si la experiencia con 
estos últimos se hace en la gama del 
8080-Z80. Lógicamente existen dife¬ 
rencias en la “jerga” de ambos proce¬ 
sadores, pero el conjunto de cosas en 
común es sorprendentemente grande. 
Por supuesto que hay facilidades de 
los procesadores de 16 bits (y en par¬ 
ticular del 8086-8088) que no tienen 
ningún equivalente, siquiera remoto, 
en procesadores de 8 bits. 

A modo de ejemplo se exponen en la 
Fig. 1 y 2 los listados de un programa, 
francamente trivial, codificados bajo 
Assembler de PC y de norma MSX. 
La elección de éste último no es ca¬ 
sual; básicamente la norma MSX de¬ 
riva conceptualmente del MS-DOS 





de PC (con el que tiene cierto grado de 
compatibilidad). A pesar de las dife¬ 
rencias lógicas debido a la diferencia 
de procesadores, permite hacer la 
comparación eliminando elementos 
que en caso de utilizar la implementa- 
ción en alguna otra máquina de 8 bits 
(Sinclair Spectrum por ejemplo) pre¬ 
sentarían diferencias, no ya por los 
procesadores en uso sino simplemen¬ 
te por diferencias en el ambiente en el 
cual se utilizan. 



El programa exhibe un mensaje y lue¬ 
go acepta un texto por el teclado; al dar 
ENTER lo exhibe y finaliza. 

A pesar de su extrema sencillez, acor¬ 
de con su poca utilidad intrínseca, per¬ 
mite mostrar la notable similitud que 
es posible observar entre ambos códi¬ 
gos. 

En los dos programas se comienza de¬ 
finiendo las constantes, pero esto no es. 
más que una regla práctica de higiene 
en la codificación (tratar de no usar 
constantes). 

En ambos programas se define el are- 
a de memoria en que se situará el códi¬ 
go ejecutable; la principal diferencia 
radica en que en el programa para 8 


bits el comienzo es en la dirección fí¬ 
sica 0100H mientras que en la PC el á- 
rea de ejecución, llamada SEGMEN 
TO, ocupará las posiciones desplaza¬ 
das 010H a partir del valor del regis¬ 
tro C8 (Code Segment). Este registro 
no tiene equivalente en el ámbito de.8 
bits y su contenido es llenado EN 
TIEMPO DE EJECUCION por el 
DOS antes de entregar el control al 
programa.Tanto en un caso como en 
el otro el espacio de memoria que se 
deja libre al comienzo del programa 
está normalizado y es para uso del sis¬ 
tema operativo (MS-DOS y MSX- 
DOS); el mismo se denomina Pro- 
gram Segment Prefix (Prefijo o Pre¬ 


ámbulo del Segmento que ocupa el 
Programa). 

Las intrucciones tienen similar pro¬ 
pósito aunque se escriben de una for¬ 
ma ligeramente distinta (MOV o LE- 
A en lugar de LD y JZ en lugar de JR 
Z por ejemplo). 

En el'Z80 los registros del procesador 
forman pares (AF,BC,DE,HL) que 
pueden utilizarse como registros de 
16 bits o solos como registros, de 8 bits 
(A,B,C,D,E,H, L). En el procesador 
de 16 ocurre algo similar solo que los 
registros de 16 bits reciben un nom¬ 
bre distinto 

(AH,AL,BH,BL,DH,DL,etcetera). 
Nótese que la nomenclatura es mne- 




¿a. 

, a., 

;*-■ 


********* ?.**.*** i ***************************** 
íe-oT ' * 

PRüGftñílH DE Pí'UEBR * 

vLkáluH 1BM-PC DU¿ 3.1 * 

lioLt-Ui Uíi TE.;:u V LO COLOCA EN PAN ALLA * 

. ».********; 


- DEFINE LA8 CONSTANTE* PARA EL A88EMBLER 


CL88C 

EQU 

BFH 

KENTER 

EQU 

0DH 

KFEED 

EQU 

0RH 

PRINT.CHAR 

EQU 

02H 

GET.CHAR 

EQU 

01H 

DISPLAY.MSG 

EQU 

09H 

DOS.CALL 

EQU 

21H 

AZERO 

EQU 

80H 


i*- 

DEFINE EL ENTEY POINT Di EJECUCION 

i *—- 

TEST 


SEGMENT 

A88UME C8•TE8T « D8 t TEST 
ORG 180H 


J#-— 
J*— 
J#- 


COMIENZA EL PROGRAMA 
INVOCA LAS TRES RUTINAS PRINCIPALES 
;*- LUEGO RETORNA AL DOS 

i*- 

PROC 

CALL CLS 
CRLL GETMSG 
CALL PRINT 

RET 


BEGIN 


i*—• 
i*— 
j*—- 
iS— 
CL8 


RUTINA PARA BORRAR LA PANTALLA 
Y LUEGO EXHIBIR UN MENSAJE 


PROC 

LEA DX«CLEAR 
CALL 8AY 
LEA DX >HELLO 
CALL SRY 
RET 
ENDP 


APUNTA AL MENSAJE CLEAR 
LO COLOCA EN LA PANTALLA 
APUNTA AL MEN8AJE HELLO 
LO COLOCA EN LR PANTALLA 






CLS 

i*-— 

RUTINA PARA ACEPTAR UN TEXTO 

j*- POR TECLADO Y COLOCARLO EN UN 

i% - BUFFER PARA USO P08TERI0R 

i»-— 

GETMSG PROC 

LEA OI»TEXT 
CALL GETCH 
CMP ALiKENTER 
JZ GETX 
MOV COIS.AL 
INC DI 


ge r 


JMP GET 

GETX MOV BYTE PTR (&I3jAZERQ 
LEA DX*Cft 
CRLL 8AY 
RET 

GETMSG INDA 


i COLOCA SB AL PIÑAL DEL BUFFER 
J AVANZA UN RENGLON 


- RUTINA PARA COLOCAR EN PANTALLA 

i*-— EL CONTENIDO DEL BUFFER ALMACENADO 
i*— POR LA RUTINA GETMSG 

i*— 

PRINT PROC 

LEA DI«TEXT 
PRINTC MOV AL« LDI3 
CMP AL«AZERQ 
JZ PRINTX 
MOV DL«AL 
MOV AH.PRINT-CHAR 
INT DOS.CRLL 
JMP PRINTC 
PRINTX RET 
PRINT ENDP 

j*-»- 

i*— RUTINA PARA IMPRIMIR UN MENSAJE 
j*-~- UTILIZANDO LA INTERRUPCION 21 
J*-DEL DOS 

PROC 

MOV flH« DISPLAY.MSG i 

INT DOS.CALL i 

RET j 

ENDP 


COLOCA EL PUNTERO AL COMIENZO 
TOMA UN CARRCTER 
VERIFICA 81 NO ES EL FIN 


COLOCA EN LR PANTALLA 


8AY 


8AY 

J*-«— 

I*-— RUTINA PARA ACEPTAR UN CARACTER 
i*-— DESDE EL KEYBOARD UTILIZANDO LA 
J*—- INTERRUPCION 21 DEL DOS 


ROÑE EN LA PANTALLA EL MSG 
CUYO COMIENZO ESTA APUNTADO 
POR EL REGISTRO DX 


j*— 

GETCH 


GETCH 

J*~ 
i*- 

TEXT 

CR 

CLEAR 

HELLO 


PROC 

MOV RH« ÚET.CHAR 
INT D08-CALL 
RET 
ENDP 


ESPERA EL INPUT DESDE EL 
KEYBORRD Y RETORNA LO QUE 
SE HUBIERA TIPERDG EN AL 


DEFINE LOS TEXTOS Y AREAS DE TRASAJO 


DB 

DB 

DB 

DS 


APUNTA AL COMIENZO DEL BUFFER 
ACEPTA UN CARACTER 
81 ES CCR3 TERMINA 


ALMACENA EL CARACTER 
INCREMENTA EL PUNTERO 

vi r . ' - * 


J*«— 

¡t~*~ FIN DEL PROGRAMA 

J*™ 

BEGIN ENDP 
TEST ENDS 


S4 DUP C' ' ) 
KENTER«KFEED«'S' 

CL8SC«' 

< TIPEE UN TEXTO Y DE ENTER' 
KENTERiKFEED«'•' 




















motécnica; AH es el registro de 8 bits 
que ocupa la parte superior (High) del 
regist ro AX, mientras que AL es el 
que ocupa la parte inferior (Low). 

El registro DI es utilizado habitual¬ 
mente para contener POINTERS en 
programas de PC, esto significa que 
su contenido “apunta” o contiene una 
dirección. Esto es algo muy similar a 
lo que se hace con el registro HL en 
programas de Z80; de hecho se puede 
hacer con cualquier registro solo que 
este es el preferido porque el set de 
instrucciones es más rico y eficiente 
utilizando el registro HL para esta 
función que usando cualquier otro. 

El assembler de PC provee una serie 
de pseudo-instrucciones, es decir a- 
quellas que se utilizan durante el en¬ 
samblado pero que no derivan direc¬ 
tamente en instrucciones de máquina 
como, por ejemplo, la posibilidad de 
que cada rutina se agrupe bajo el 
nombre de “PROCEDURE” o 
“PROC” (Procedimiento). Esto por 
supuesto aumenta considerablemente 
la claridad del source pero no es esen¬ 
cial desde un punto de vista estricto de 
programación. 

Nótese que en el programa para PC el 
fin es indicado explícitamente me¬ 
diante la pseudo-instrucción ENDS 


(End of Segment, fin del segmento) 
mientras que en el programa de Z80 el 
fin es solo un truco para poder calcu¬ 
lar, sobre la base del cross reference 
del ensamblador, la extensión del pro¬ 
grama objeto resultante (al módico 
precio de 1 byte de memoria desperdi¬ 
ciado). En ambos programas las fun¬ 
ciones de I/O (Entrada-Salida) se eje¬ 
cutan invocando funciones del DOS. 
En el caso de PC, a través de la inte¬ 
rrupción de software número 21, e- 
quivalente en ciertos aspectos a la ins¬ 
trucción Restan del Z80, es decir una 
variante especial de CALL. Mientras 
tanto, en el programa de MSX se in¬ 


voca a la función del DOS a partir de 
un CALL corriente; en ambos casos 
se envía y se recibe la información es¬ 
pecífica de la función con uno o más 
registros claramente especificados. 
La cantidad de funciones disponibles 
en MS-DOS es realmente impresio¬ 
nante, acorde con la posibilidad de 
manejar un número muy alto de va¬ 
riantes de hardware disponibles y otro 
número mayor aún no concebido, 
pues el DOS permite, a través de pro¬ 
tocolos notoriamente sencillos, la ex¬ 
pansión en hardware y software prác¬ 
ticamente ilimitada.. - 


j**XXX**#XXXXXXXX*X*******XXXXXXXXXXXXXX**XX**** 
j * TEST * 

¡X PROGRAMA DE PRUEBA * 

i* VERSION TfiLENT HC - MSX-DÜS * 

iX ACEPTA UN TEXTO Y LO COLOCA EN PANTALLA X 

¡xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

i*—'- 

Jl— DEFINE LAS CONSTANTES PARA EL ASSEMBLER 
i X™ 


CL86C 

EQU 

0FH 

KENTER 

EQU 

0DH 

KFkED 

EQU 

0AH 

PRINT.CHAR 

EQU 

02H 

GET-CHAR 

EQU 

01H 

DI8PLAY-MSG 

EQU 

09H 

D08-CALL 

EQU 

0006H 

AZERG 

EQU 

00M 


JX— 

j*- DEFINE EL ENTRY POINT DE EJECUCION 

i*- 

ORO 100H 

#•— 

i*— COMIENZA EL PROGRAMA 

jX—- INVOCA LAS TRES RUTINAS PRINCIPALES 

¡X - LUEGO RETORNA AL DÜS 

¡X - 

TEST CALL CLS 

CALL GETMSG 
CALL PRINT 
RET 


i*— 

j*— 

jX—- 

¡X - 

CLS 


RUTINA PARA BORRAR LH PANTALLA 
Y LUEGO EXHIBIR UN MENSAJE 


LD DE.CLEAR 1 
CALL brtY i 
LD DE.HELLO i 
CALL SAY J 
RET 


APUNTA AL MENSAJE OLEAR 
LO COLOCA EN LA PANTALLA 
APUNTA HL MENSAJE HELLO 
LO COLOCA EN LA PANTALLA 


)X— 


¡X - RUTINA PARA ACEPTAR UN TEXTO 

jX— POR TECLADO Y COLOCARLO EN UN 
jX- BUFFER PARA USO POSTERIOR 


i*- 

GETMSG LD HL*1EX1 
GET CALL GETL'H 
CP KfcNfkk 
JR GET X 
LD (HL > * A 


i APUNÍA RL COMIENZO DEL BUFFER 
i ACEPTA UN CARACTER 
i SI ES LCR3 TERMINA 

i ALMHLtNH EL CHRHCÍER 


INC HL i INCREMENTA EL PUNTERO 

JR GET 

GETX LD (HD.AZIRO j COLOCA 00 AL FINAL DEL BUFFER 

LD DEjCR j AVANZA UN RENGLON 

- CALL SAY 
RET 

iX— 

;X— RUTINA PARA COLOCAR EN PANTALLA 
iX— EL CONTENIDO DEL BUFFER ALMACENADO 
i«- POR LA RUTINA GETMSG 


jX*— 

PRIAT LEA HL.TEXT 
PRINTC LD fl,CHL> 

CP AZERO 
JR Zj PRINTX 
LD EjA 

LD C/ PRINT-CHAR 
CALL D08-CALL 
JR PRINTC 
PRINTX RET 


j COLOCA EL PUNTERO AL COMIENZO 
i TOMA UN CARACTER 
j VERIFICA SI NO ES EL FIN 

1 COLÜCA EN LA PANTALLA 


JX— 

jX—~ RUTINA PARA IMPRIMIR UN MENSAJE 

iX- UTILIZANDO LH INTERRUPCION 21 

iX-DEL DOS 


SAY LD C¿ D18PLAY-M8G i PONE EN LA PANTALLA EL MSG 

CALL DQ8-CRLL i CUYO CuHIENZU kSÍH APUNTADO 

RET i POR EL REGISTRO DX 

jX— 

iX- RUTINA PARA ACEPTAR UN CARACTER 

¿X— DESDE EL KEYBOHRD UTILIZhNDU LA 

jX— INTERRUPCION 21 DEL DOS 

iX— 

GETCH LD C¿ GET-CHRR i ESPERA EL INPU1 DESDE EL 

CALL DÜS-CmLL i kEYBOHRD Y RETORNA LO QUE 

RET i EL HUBIERA T1PEHD0 EN AL 

JX— 

j X-— DEFINt LÜ¿ lEXlüC v hlütMS DE TRABAJO 


JX—- 

TEXT CB 

UB 

CR DB kLUVEK>KFEED* 

OLEAR DB CLSbCi'*' 

HELLÜ DB 'TIPEE UN TEXTO Y DE ENTER'•K 

KENTKRiKFEED j' X* 


jX— 

jX- FIN DEL PROGRAMA 

jX- 

ENDPRQG NUP 


—-r V o ;• '-M ir-.#-»- 
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GUIA PRACTICA DE ACCESORIOS 

O 


EL MEJOR CLUB 
PARA ATARI 

ST 

A 

ATARI' 

snninMLMJK 


VENEZUELA 2095 CAP. 

TE. 942-2482 



CASSETTE VIRGEN 
PARA 

COMPUTACION 


•Fabricación propia 
• Utilizamos cintas Ampex 
U.S.A. 

•Las medidas se 
preparan en el día. 



Producciones 
ECCOSOUND S.A. 
Tronador 611 - (1027) Cap. 
551-9489/553- 
5080/553/5063 



OFRECEMOS CALIDAD Y 
PRECIO AL SERVICIO DE LA 
TECNOLOGIA 

• CONSULTENOS • HAGA SU 
PEDIDO 



¿CUANTO TIEMPO 
SE PRIVO DE VER 
80 COLUMNAS 
. _ CON SU 128 ? 




DATAFLOW MVC/80 


ES LA SOLUCION 
LOS COSTOS DE UN MONITOR NO SIEMPRE 
SON ACCESIBLES LA REFORMA DEL 
TELEVISOR LO RACE DUDAR, 

AHORA UD. PUEDE VER «0 COLUMNAS CON 
SU 128 Y SU TELEVISOR HABITUAL SIN 
REFORMAS DE MNGUNA CLASE 
CONECTANDO EL MVC/80 TENDRA LA 

SOLUCION AL INSTANTE. ^ aaki ^_ ri5 
_ ©«FRUTE PLENAMENTE 

f jí COMMODORE128 

í ^ DATAFLOW MVCAOLO 

HACE POSBLE 

DATAFLOW 
E^UM PRODUCTO 

COMPUTACION 

VENTAS: SUIPACHA 472 - P.4 - Of. 410 
(1008) - BUENOS AIRES - 49-0723 



ATARI 

COMPUTADORAS 

INTERFACE PARA GRABADOR COMUN: 
A 65 

RARCOS COMERCIALES Y 
ESTADISTICOS: 

A 70 

SINTETIZADOR DE VOZ EN CASSETES 
A 30 

SENSOR DE LUZ: *25 

SENSOR DE SONIDO: *25 

LIBFtO PARA CONSTRUIR PERIFERICOS: 

*25 

CONTROL DE CUOTAS SOCIALES PARA 
CLUBES: *350 
REVISTA CLUB DE MICROS 

CLUB DE USUARIOS 

L a V de 9:00 a 18 ha. Sáb ele 9:00 a 13 hs. 


MAIPU 289 RAMOS MEJIA 
(1704) 658-0685 



COMPUTADORAS PCRSONALKS 


Equipos - Todas las marcas - 
Home y P.C. Sistemas a 
medida y standard * Cursos para 
usuarios Todo el Software» libros, 
Accesorios, manuales, diskettes 
formularlos, cintas, papel, etc. 

A». MVADAVIA 13.734 (1704) A. MEJIA 
654-8344 



TS/TC 2068 - TK 90 
CZ-ZX SPECTRUM 
COMMODORE 64/128 
COMPATIBLES SINCLAIR 

LINEA DE PERIFERICOS 
ATENCION CASAS DEL 
GREMIO 

ATENCION USUARIOS DE 
TS-TC-SPECTRUM 
INTERFASE RS-232 Al 50 
PERMITE CONECTAR 
IMPRESORAS 

MODEMS ETC IMPORTANTE 
DESCUENTO POR CANTIDAD 


ENVIOS AL INTERIOR 
HORARIO 10 A 13 -15 A 19 HS 
LaV 


o 

K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 

• * 















































GUIA PRACTICA DE ACCESORIOS 


COMMODORE 64-128 
I.B.M.-AMIG A- 
SPECTRUM 
SOFT STANDART Y A 
MEDIDA 


CURSOS 


Se aceptan tarjetas de crédito. 



¡H Informática 

Cintas de Impresión-Cintas 
Magnéticas-Diskettes-Aros 
Enhebradores-Formularios Con¬ 
tinuos-Etiquetas Adhesivas-Data 
Cartridge-Sunchos 

PTE. J.D. PERON 1642 P.B. "2" 
TEL.:35-7286 CAPITAL 


SERVICE 

COMPUTADORAS 

ESEVEI 

SERVICIO TECNICO INTEGRAL 
1er. Centro Asistencial con servicio 
de urgencia para su: 
COMMODORE, IBM, TEXAS 
ATARI, SPECTRUM, SINCLAIR Y TK 
CONVERSIONES A COLOR EN EL ACTO 
Atención al gremio. Capital e Interior 

SUIPACHA 756 I 1 A 392-0255 



Ttáffifméfh al m+r fmm 


EQUIPOS & PERIFERICOS 

LA MARCA DE PERIFERICOS PARA 
COMMODORE MAS COMPLETA Y 
ACCESIBLE A SU BOLSILLO. 

TODO CON GARANTIA DE UN AÑO 

•CARTUCHO "BASIC PLUS- 
CARTUCHO "LOADPACK" 

•CARTUCHO 'MACH 128” 

•CARTUCHO -PET V 4" 

•CARTUCHO -FINAL II" 

•FILTRO DE LINEA 
•LAPIZ OPTICO 

•LIMPIA COMPUTADORAS "MISTER Ll" 

•GRABADOR DE MEMORIAS 
"DIGIPROM" 

•MODEM AUTOMATICO BINORMA 

TAMBIEN LOS EQUIPOS MAS BARATOS 

VENTAS POR MAYOR Y MENOR 
ENVIOS AL INTERIOR 
FLORIDA 835 LOCAL 10 
TE: 313-7565 


5 1/4 1/2 

2D 2DD 

2DD mammm 

2HD (ALTA CALIDAD) 

DISKETTES"CIS" 


40-2293 

51-3188 


51-8108 
46-2128 


MODEMS? 


LA CASA 
DEL MODEM 

descuentos 
SOCIOS A.C.A. 


MODEMS D^MOX 
DISTRIBUIDOR 
MAYORISTA 
OFICIAL 


MODEMS PARA 

TODO TIPO DE COMPUTADORAS 
EN BREVE PARA SPECTRUM Y 2068 

ATENCION PERSONAL: 

14,30 A 20 HS. 

ATENCION AUTOMATICA 
(CCITT/300/8/1/N) 

DE 20 A 14 HS. 

J.B. Al toril 3MB • Capital 

altura Rivadavia 7800 

Tal: 812-4334 


PYM-\OFT 


O 


64-128-CP/M 


COMPUTACION 


SOFTWARE EN CASSETTE V DISKETTE, 
JUEGOS.UTILITARIOS. NOVEDADES ACCESORIOS 



MODEMS 

DATAFLOW. 


CINTAS P/IMPRES. 

ACELERAD.CARGA 
MANUALES 


DISKETTES 
FUNDAS § 


IBM PC-COMPATIBLES | 

MONITORES 
MVC-80 


ASESORAMIENTO PROFESIONAL 
ENVIOS AL INTERIOR 


MM 300 PARA COMMODORE 64/1 28 
AA 300/C AUTOMATICO PARA COMMODORE 
64/128 MM 300 PARA IBM y COMPATIBLES 
DESCUENTOS A SOCIOS A.C.A. ° ,NORMA <CC.TT/BELL) 300 BAUD.OS 
PRECfOS SIN COMPETENCIA VENTAS POR MAYOR Y MFNOR 



VENTAS:SUIPACHA 472 P.4 Of. 410 (1008) 49-0723 


Consolas, Disketteras, Monitores, Datassette, 
Impresoras , Jaysticks, Fuentes, Diskettes . 
Interfases, Fast Load, Resets, Fundas para el 
equipo. 

Todos los manuales en castellano. Software de 
juegos y utilitarios en cassettes y diskettes. 
Conversión de T. V. y Videocassettera a Binorma , 
Pal-N, NTSC. en el día. 

Tarjetas de crédito Créditos 3. 5 y 8 cuotas fijas. 


“COMPETENTE” 



sy¡ 2 g& 


64C v^AN *ol^ rrtrr> °c/( 


*4d£JasspÍ 


fiTTE 


On e 


Corrientes 3802 -(1194) Capital - Tei. : 87-34 76 


' fc *1090 


K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 K64 











































PROGRAMAS 


TURBOPRINT 



CLASE: UTILITARIO 

COMPUTADOR A ¡SINCLAIR SPECTRUM/TK 90 
AUTOR¡CHRISTIAN TOTTINO 


E 


ste utilitario permite 
imprimir gráficos de 
cualquier tamaño en 
cualquier lugar déla 
pantalla. 

Esto no nos limita para trabajar con 
las dos últimas líneas, que como sabe¬ 
mos están reservadas para el sistema. 
La rutina está desarrollada en código 
máquina, y por lo tanto actúa en forma 
instántanea. 

Esta puede ser utilizada desde BA¬ 
SIC, o bien desde otro programa en 
código máquina. 

Al ser una rutina corta, y adaptable a 
cualquier otro programa de nuestro u- 
so, se presta muy bien para agregar e- 
fectos o presentaciones muy bien lo¬ 
gradas a nuestros juegos o programas 
en general. Esto se consigue de una 
forma efectiva, y con muy poco es¬ 
fuerzo. 

FUNCIONAMIENTO 


El programa se ejecuta mediante un 
RAND USR 50000. 

Una vez hecho esto, lo primero que 
hace es leer las posiciones de memo¬ 
ria 49998 y 49999. En estas posicio¬ 
nes se encuentra una dirección de me¬ 
moria que nos indica en dónde están 
almacenados los datos de los gráficos 
que debemos imprimir. 

Una vez que el programa tiene esta di¬ 
rección, carga 6 bytes a partir de la 
misma. 

Estos bytes tienen el siguiente signifi¬ 
cado: 

-el primero y el segundo indican la fi¬ 
la y columna donde debe imprimirse 
la parte superior izquierda del gráfico, 
-el tercero y cuaro, indican la direc¬ 
ción de mem> ..• donde comienza el 
gráfico. 

-el quinto y el sexto indican el núme¬ 
ro de columnas y filas del gráfico. 
Una vez que la xutina procesa estos 
datos, imprime el gráfico en la posi¬ 
ción adecuada, y vuelve a leer la posi¬ 
ción de memoria siguiente para ver si 
debe imprimir más gráfico. 

Si el contenido de esta posición de 



memoria es 255, significará que no 
hay más gráficos, y retomará al BA¬ 
SIC. 

En caso de que sea distinto de 255, le¬ 
erá otros seis bytes, cuyo signicado es 
idéntico al recién explicado. 

La rutina de impresión continúa has¬ 
ta que encuentre un 255 que le indique 
detenerse. 

Para que esto les quede más claro,va- 
mos a dar un ejemplo. 

Supongamos que queremos imprimir 
un gráfico de 3 por 4 en la posición 0,0 
y otro de 9 por 5 en la posición 
10,ll.Entonces los datos que tendría¬ 
mos que tener antes de llamar a la ru¬ 
tina serían: 

0,0,n,n,4,3,10,ll,m,m,5,9,255 
donde nn y mm serían las direcciones 
en que se encuentran almacenados los 
gráficos. 

Estos datos, pueden ser almacenados 
en cualquier parte de la memoria, y 
luego se almacena esta dirección en 
las posiciones 49998 y 49999. Esto le 
brinda al usuario una gran flexibili¬ 
dad en el manejo, ya que no está limi¬ 
tado a trabajar en una zona determina¬ 
da de memoria 

aquellos que no sepan cómo pasar de 
una dirección de memoria cualquiera 
a un número de dos bytes. les damos 
una mano con este truquito. Consiste 
en tomar el valor (por ejemplo 
32000), y hacer un RANDOMIZE 


32000 (ojo que no es RAND USR). 
Esto hace que una variable del siste¬ 
ma de dos bytes de longitud tome ese 
valor. Si ahora hacemos PRINT PE¬ 
ER 23670 y PRINT PEEK 23671 ya 
tendremos los dos números a colocar 
en las direcciones de memoria 49998 
y 49999. 

Este mismo proceso puede hacerse 
con las direcciones del gráfico. Resu¬ 
miendo, para utilizar el programa se 
deben seguir los siguientes pasos: 
-cargar el programa 
-poner en 49998 y 49999 la dirección 
donde están los datos de impresión 
-cargar los gráficos y llamar a la ruti¬ 
na 

Si la llamamos mediante RAND USR 
50000, se borra la pantalla, mientras 
que si lo hacemos con un RAND USR 
50002 queda en pantala lo que está 
impreso y solo se borra lo que se halla 
debajo del dibujo que agregamos. 

Un dato de importancia es la manera 
en que imprime el programa; ya que lo 
que va haciendo por carácter y por fi¬ 
la. Esto implica que los gráficos debe¬ 
rán estar almacenados en memoria de 
la misma manera. 

Vamos a un ejemplo, supongamos 
que tenemos un gráfico de 2 filas por 
3 columnas como muestra la figura: 


A 

B 

C 

D 

E 

F 
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Entonces, en memoria tendrá que es¬ 
tar almacenado de la siguiente mane¬ 
ra: primero los 8 bytes del carácter A, 
luego los 8 del B, y así hasta el final. 
Esto puede ser muy útil si queremos 
utilizar los UDG. 


COMO CARGAR EL 
PROGRAMA 


Además de la rutina en sí, tenemos un 
programa de demostración en BA¬ 
SIC. 

Para que el mismo funcione correcta¬ 
mente, se deben ingresar las siguien¬ 
tes rutinas de código máquina: 
-Listado T.P.OBJ.:es el código objeto 
del programa Turboprint. 

-Listado Demomac: código objeto 
del demo en código máquina. 
-Listado letraturbo: gráficos utiliza¬ 
dos en la demostración. 

-Listado inten más gráficos de la de¬ 
mostración 

Para cargar estos programas (turbo¬ 
print y demomac) tenemos dos posi¬ 
bilidades. Una es utilizar el listado 
cargador que acompaña a esta nota, y 
la otra es usar un ensamblador y utili¬ 
zar los listados del T.P.fuente y De¬ 
momac fuente. Esto puede resultar 


interesante para aquellos que quieran 
analizar el funcionamiento de las ruti¬ 
nas, ya que las mismas fueron escri¬ 
tas totalmente en Assembler. 

T.P.FUENTE: 

;TURBOPRINT 

;por Christian TOTTINO 

;29/5/87 

;PARA K64 

ORG 50000 

ent 

BORRA CALL #0D6B borra pan¬ 
talla 

TURBO LD A,2 abre canal 2 
CALL 1601 
LD A,8 
LD (49993),A 

LDHL, (49998) ubica datos de im¬ 
presión 

0T4LDD,(HL) carga d con el con¬ 
tenido de la 1 B dirección de datos 
LD A,D si es 255 retoma; si no, a- 
sume que es la fila donde hay que im¬ 
primir 
CP 255 
RETZ 
INC HL 

LD E, (HL) columna donde se em¬ 
pieza a imprimir 
PUSH HL guarda HL 


CALL BUSK busca la dirección en 

pantalla de la posición D,E 

LD (49996), H guarda esa dirección 

POPHL recupera hl 

INC HL carga en BC la dirección 

donde están los datos del gráfico 

ID C,(HL) 

INC HL 
LD B, (HL) 

INC HL carga en E el número de co¬ 
lumnas 
LD E, (HL) 

INC HL carga en d el numero de fi¬ 
las 

LD D, (HL) 

LD A, D guarda esos valores 

LD (49995),A 
LD A,E 
LD (49994),A 

PUSH HL recupera la dirección 
donde comienza a imprimir 
LD HL, (49996) 

OTRALDA,(BC) carga un by te del 
gráfico 

ID (HL) A lo pone en pantalla 
INC BC continúa hasta completar un 
carácter 

INC H 

LD A, (49993) 

DEC A 
LD (49993),A 


Reitiís 

MONOCROMATICO FOSFORO VERDE 
O AMBAR 14" 

TUBO DE ALTA RESOLUCION 
40-80 COLUMNAS CON SONIDO 
ENTRADA DE VIDEO COMPUESTO. 


GABINETE PLASTICO ALTO IMPACTO 
CONTROL VOLUMEN, CONTRASTE Y 



BRILLO EXTERIORES 

CONTROL DE FASE HORIZONTAL 

CONTROL LINEALIDAD Y ALTURA VERTICAL INTERNOS. 

TENSION 220 V + 10%-20%;50 CONSUMO 30 V A 


UNICO EN EL PAIS CON OPCIONAL ANTIRREFLEJO. 








Electrónica Remis 


s.a. 


INT.ABEL COSTA 518 (EX RAMS) 
(1708) MORON 
TE:629-3375 
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PROGRAMAS 



CPO 

JP NZ, OTRA 

DEC E se fija si se acabaron las co¬ 
lumnas de una fila 
LD A,E 
CPO 

JP Z, 0T1 
LD A,H 
SUB 8 

LDH,A HL apunta a la dirección del 
próximo lugar a imprimir 
INC HL 
LD A,8 

LD(49993),A restaura 8 bytes de un 
carácter y salta a OTRA 
JP OTRA 

0T1 DEC D se fija si se acabaron las 
filas 

LD A,D 
CPO 
JP Z,0T5 

LD A,(49994) recupera el número de 

columnas 

LD E,A 

DEC H disminuye HLpara posicio- 

narlo en la próxima fila 

LD A,E 

F2DEC A 

CPO 

JP Z,F1 

DEC HL 

JP F2 

F1PUSHHL se fija si se CAMBIO 

de tercio 

LDA, H 

PUSH BC 

LD B,0 

LD C¿2 

ADD HL, BC 

POP BC 

XORH 

JP Z,F3 si se cambia, salta a F3 

POP HL suma 32 posiciones a HL y 

comienza a imprimir una nueva fila 

PUSH BC 

LD B,0 

LD C,32 

ADD HL,BC 

POP BC 

LD A,8 

LD (49993),A 

JP OTRA 

F3 POP HL hace los cálculos para 
cambiar de tercio y salta a imprimir o- 
tra fila 
LD A,H 
SUB 7 
LD H,A 
PUSH BC 
LD B,0 
LD A,32 
LD C,A 


ADD HL3C 
POP BC 
LD \,S 
LD (49993),A 
JP OTRA 

0T5 POP HL recupera el valor don¬ 
de están los datos de la pantalla y sal¬ 
ta a 0T4 para ver si hay más gráficos 
a imprimir 

INC HL 
LD A3 
LD (49993),A 
JP0T4 

BUSK LD A,D rutina para hallar la 

dirección de comienzo de un carácter 

en la pantalla RRCA 

RRCA 

RRCA 

AND 224 

ORE 

LD L,A 

LDH,64 

LD A,D 

AND 24 

ADD A,H 

LDH,A 

RET 

;DEMOMAC 

;POR CHRISTIAN TOTTINO 
;PARA K64 
org 29000 
ENT 

LD A,3 carga cantidad de filas y co¬ 
lumnas del gráfico en 29504 y 29505 

LD (29504),A 
LD (29505),A 

LD A,255 en 29506 se marca el 

fin de datos 
LD (29506), A 

LD HL,30000 HL se carga con la 
dirección de los gráficos 

LD D,0 

U10 LD A,0 en 29500:29501 se 
guardan las coordenadas a imprimir 
U2 Id B,0 
LD (29500),A 
U1PUSH AF 


LD A,B 
LD (29501),A 
POP AF 

LD (29502),HLen 29502 se guarda la 
dirección y gráficos 
PUSH AF se guadan los registros 
antes de llamar a T.P OBJETO 
PUSH HL 
PUSH BC 
PUSH DE 
CALL 50002 

POP DE se recuperan registros 

POP BC 
POP HL 
POP AF 

INC B se incrementan coordenadas 
y se verifica si se llega al final d e la fi¬ 
la 

INC B 
PUSH AF 
LD A,B 
CP 30 
JP NZ,T1 

POPAF se verifica si ya se imprimió 

en toda la pantalla una letra 

INCA 

INCA 

INCA 

CP 24 

JP NZ,U2 

PUSH DE se direcciona el gráfico de 

la siguiente letra y se verifica si ya se 

imprimieron todas 

LD DE,72 

POP DE 

INC D 

PUSH AF 

LD A,D 

CP 10 

JP NZ,T2 

POP AF 

RET 

TI POP AF 
JPU1 
T2POP AF 
JPU10 

Listado en Página 64 HjP 
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PROGRAMAS 


LA CAVERNA 
ENCANTADA 



COMP.: CZ 1000/1500 - TK 83/85 
CLASE: ENT. 

CONF.: 16 K 

AUTOR: Alexis y Adrián Evdemon 


n una caverna medie¬ 
val con pájaros y co¬ 
codrilos (<), mone¬ 
das “O”, serpientes 
“S búhos “8”, mu¬ 
ros “ “ y estalactitas 
“Y”, tenemos que hacer todo lo posi¬ 
ble para recoger el tesoro 
Los jugadores principiantes que quie¬ 
ran llegar con mayor facilidad al teso¬ 
ro pueden agregar las siguientes sen¬ 
tencias: 

700 FOR A=1 TO 20 
710 NEXT A 

Este programa es un claro ejemplo pa¬ 
ra demostrar que aun en las pequeñas 
computadoras se pueden correr muy 
buenos programas. 

Es sabido que esta familia de compu¬ 
tadoras de 16K no permite escribir en 
las líneas 22 y 23 de la pantalla. 

Pero Alexis y Adrián agregaron astu¬ 
tamente la sentencia POKE 16418,0y 
POKE 16418,2 para revertir esta si¬ 
tuación. Esto lo podemos tener en 
cuenta para nuestros programas. Es 
importante que antes de imprimir, en 
la línea 22 ó 23 coloquemos la senten¬ 
cia POKE 16418,0; ahora sí PRINT y 
por último POKE 16418,2. 

No es aconsejable encerrar esta sen¬ 
tencia dentro de un bucle FOR- 
NEXT. 

Este juego se destaca por el ahorro de 
memoria y velocidad que consiguie¬ 
ron darle sus autores. Muchos progra¬ 



madores pueden sacar ideas de las ru¬ 
tinas empleadas aquí. 


VARIABLES IMPORTANTES: 


Z3: récord 

G$: coloca el marco gris 

H$: nombre del jugador que hizo el 

récord 

Z10: cuenta el tiempo que utilizamos 
en el juego 

N$: coloca un marco negro 
A$: dibuja un gráfico de presentación 
D$: nombre del jugador 
AA: línea del gráfico que nos repre¬ 
senta en el juego (*) 

M: monedas que tenemos 

M$: gráficos de diferentes monstruos 

B2: fila del pájaro 


B3: fila de la canoa 
B4: fila del cocodrilo . 

B5: fila de la serpiente 
B6: fila del búho 
B8: fila de los barriles 
C1,C2: fila de los fantasmas 


ESTRUCTURA DEL 
PROGRAMA: 


1-10: inicia variables 
20-140: presentación del juego 
200-250: instrucciones 
400-417: inicia variables 
500-570: rutinas para aumentar la ve¬ 
locidad 

600-900: resta al puntaje el tiempo 
perdido 

1000-1840: rutina de movimiento 
2000-2030: imprime puntaje actual 
2500-2630: rutina para ahorrar me¬ 
moria 

3000-7120: rutinas para mover los di¬ 
ferentes objetos 

7200-7490: imprime tiempo, mone¬ 
das, bonus y puntaje 
7500-8010: rutina de caída y alcance 
algún enemigo 

8050-8110: imprime pantalla final si 
perdemos 

8300-8400: imprime pantalla final si 
ganamos 

8500-9370: termina de imprimir la 
pantalla final 

Listado en Página 65 KP* 



COMMODORE™ 


APPLE 

s f 

Él# 

, R C 

!f P 

PUL 

«ff 

fJP 

;# 

T.E.: 392-2545 


* 




* 


D & £ 

Y AYUDANOS A CONFORMAR 
TU CLUB DE USUARIOS PARA 
COMMODORE ™ Y APPLE™ 


O 


ACCESORIOS 
SERVICIO TECNICO 
MEDIOS MAGNETICOS 
SOFTWARE DE GESTION 
CINTAS PARA IMPRESORAS 
CURSOS DE SOFT DE APLICACION 


FLORIDA 537 


REVISTAS Y LIBROS 
LOGOTIPOS - TEXTOS 
PUBLICACIONES VARIAS 
ARMADO DE ORIGINALES 
SCANNEADO DE FOTOGRAFIAS 
DEPARTAMENTO DE PUBLICIDAD 

COMPUTACIÓN 
PRIMER PISO - LOCALES 448 / 489 

'GALERIA JARDIN" 


AUTOEDICION 

LASER 

% 

C 

A 

!ti 

N 

Se 

% 

T.E.: 393-0821 


X' 
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PROGRAMA 


BINGO 


COMP: CZ 1000-1500/TK83-85 
CLASE: ENT. 

CONF.: 16K 

ALTOR: JULIO MORENO 

MENCION DEL CONCURSO MENSUAL 



p 


ueden participar hasta 
4 personas. Es uno de 
los pocos entreteni¬ 
mientos que soporta 
tantos jugadores al 

mismo tiempo. 
Aparecerán en pantalla los cuatro car¬ 
tones. Cada participante debe escoger 
una fila y copiar sus números en un 
papel para tenerlo siempre a mano. 
La computadora luego irá cantando 
los números. Verifiquemos si coinci¬ 
den con algunos de los números de 
nuestro cartón. El primer jugador que 
logre hacer coincidir todos sus núme¬ 
ros con los cantados por la computa¬ 
dora deberá pulsar la tecla ENTER. 
Luego la máquina revisará si real¬ 
mente ese es el ganador y lo premiará. 
De lo contrario, informará dónde está 
el número equivocado. 

Para cantar los números, el autor uti¬ 
lizó caracteres gráficos y una rutina 



para imprimir caracteres grandes. 
Este programa es de escasa duración, 
pero hará pasar gratos momentos dis¬ 
frutando la emoción que tiene un 
juego de azar. 

VARIABLES 

IMPORTANTES: 


A,B,C,D: matrices con el contenido 


de los cuatro cartones 

E: matriz con los números cantados 


ESTRUCTURA DEL 
PROGRAMA: 


10-110: instrucciones 
120-730: inicialización de variables 
755-870: rutina de impresión de 
números 

900-1200: verificación del cartón 
ganador 

1600-1650: rutina para imprimir los 
cuatro cartones 

2530-2590: escoge el orden de los 
100 números 

3000-3560: cuentas internas 
4000-4260: cuentas para verificar el 
cartón ganador 

5000-6040: impresión de números 
Listado en Página 66 I® 5 


CAMINO AL OESTE 



COMP.:ATARI 80 XL/130XE 
CLASE: ENT. 


ste software intenta 
demostrar las capaci¬ 
dades gráficas de 
nuestra computado¬ 
ra. 

Por la forma y los recursos que aplica 
este programa en BASIC, los efectos 
de movimiento de los “sprites” se a- 
semejan a los programados en As- 
sembler. 


ESTRUCTURA DEL 
PROGRAMA: 



40-110: inicialización de variables y 
presentación 

119-140: lista de despliegue 



149-150: leer color 
159-170: define objetos con movi¬ 
miento 

179-190: define espejo 
199-200: define sol 


209-210: inicializa la interrupción 
del blanqueo vertical 
219-1000: inicializa la lista de des¬ 
pliegue 

1009-1020: pasa los caracteres del 
ROM a la RAM 
1029-1030: completa datos 
1039-1040: combina el DLI y VBI 
1090-1150: lee los datos pasados de 
la ROM. Se utilizan los caracteres 
gráficos que ya vienen en la máquina 
1160-1250: lee datos de la pantalla 
1260-1280: lee datos de DLI y VBI 
1290-1300: lee colores 
1310-1350: lee los datos de los obje¬ 
tos en movimiento 

Listado en Página 67 
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PROGRAMAS 


MEMORIA 

♦ 


COMP.: TK 83-85/CZ1000-1500 
CLASE: EDU. CONF.: 2K 
AUTOR: GUSTAVO FREIRAS 


PARTICIPO EN EL 2 o - CONCURSO DE “EL PROGRAMADOR DEL AÑO’ 


E 


ste entretenido pro¬ 
grama es un excelen¬ 
te ejercicio para ayu¬ 
damos a incrementar 
nuestra memoria vi¬ 
sual. 

Escogiendo un nivel de dificultad, la 
computadora nos presentará en dife¬ 
rentes lugares de la pantalla una bate¬ 
ría de números, de letras o de ambos e- 
lementos. 

Si acertamos la serie de caracteres 
propuestos por la computadora, pode¬ 
mos seguir jugando. Cada vez será 
más difícil ya que se irán sumando o- 
tros nuevos símbolos. 

Este juego puede ser usado tanto por 
un adulto como por un pequeño que 
conozca las letras. 

El primer nivel es el más sencillo, 
conviene empezar por este hasta que 


le tomemos un poco la mano. 

El puntaje que aparecerá al final nos 
permitirá observar si aumentamos o 
no nuestra memoria. 

VARIABLES 

IMPORTANTES: 

S: nivel 

A,B: coordenada del carácter a impri¬ 
mir 

N$: matriz con la secuencia de carac¬ 
teres a adivinar 

C$: carácter ingresado por el jugador 
D: puntaje 

ESTRUCTURA DEL 
PROGRAMA: 

1-100: presentación 

100-195: elige nivel y tipo de caracte¬ 



res 

200-370: escoge serie de caracteres al 
azar y los imprime en la pantalla 
400-450: acepta serie del jugador y la 
compara con la verdadera 
500-540: imprime puntaje y mensaje 

final __ 

Listado en Página 68 ICF" 



PROGRAMAS. TRUCOS Y NOTAS 


Premiaremos los mejores trabajos. Los programas y trucos deben servir para cualquiera de las computadoras que habi¬ 
tualmente figuran en nuestra revista. Las notas deben apuntar a "sacar jugo" a los equipos. Los premios se entregarán 
en la administración de la editorial. Los que no puedan concurrir pueden solicitar el envió. Pagando el franqueo contrare¬ 
embolso. Los premios podrán ser reclamados dentro de los 120 días después de haber sido anunciados. * 


EL GANADOR RECIBIRA: 
Una orden de compra por 
el valor de 100 australes 


MENCIONES 

Una serie variable de premios de acuerdo 
a la cantidad y envergadura de los trabajos 


Pueden escribir a nombre de CONCURSO MENSUAL K 64 - Paraná 720, piso 5 S (1017) Capital Federal.- 


RESULTADO DEL 8vo. CERTAMEN 


l g PREMIO 

TRUCOS PARA CZ SPECTRUM- 

TK-90-TS-2068 

de Hernán Gabriel López 

Cred una rutina que actúa como un oscilador de 
frecuencia. (Pág. 30) 


MENCION 

BINGO (Programa para CZ-1000/1500/TK-83/85) 

de Julio Moreno. (Pág. 56) 

TRUCOS PARA SPECTRUM-TK-90 

de Sergio Gutiérrez. (Pág. 30) 

TRUCOS PARA COMMODORE 

de Juan Buhler. (Pág. 32) 
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PROGRAMAS 


MECAPROM-NAV5 

s 



COMP.: TI99/4A-EXTENDED BASIC 
CLASE: UTIL. 

AUTOR: RODOLFO E. NAVE 


E 


ste utilitario permitirá 
que ahorremos horas 
frente a la computa¬ 
dora. Mientras se usa, 
como procesador de 
texto, podemos escribir un programa 
listo para cargarlo y ejecutarlo con 
RUN. 


El soft posibilita el uso de la consola 
con la impresora (prendida o apaga¬ 
da), como si fuera una máquina de es¬ 
cribir. Esto permite hacer fundamen¬ 
talmente cartas, notas, etcétera, y 
guardarlas en casete o disco.También 
crear programas como si fuera una 
nota y cargarlo con merge listo para 
hacerlo funcionar. 

Veamos ahora cómo se maneja y 
cuáles son las posibilidades de este 
procesador. 

Cada vez que pulsamos ENTER, el 
cursor desaparecerá para dar lugar a 
que usemos (o no) las funciones: 
-impresión: mantener apretado EN¬ 
TER hasta que imprima, y si tenemos 
apagada la impresora mantengamos 
la tecla RETURN presionada hasta 
que se borre lo escrito en pantalla. 
-FCTN ERRASE: borra la pantalla, y 
ésta queda lista para escribir. 

-FCTN A: sirve para elegir formatear 
el tamaño de la hoja. 

-FCTN T: tabula una sola vez donde 
elijamos, luego se pone en cero. 
-FCTN P: tabula en forma permanen¬ 
te hasta que volvamos a presionar am¬ 
bas teclas. 

-FCTN E: deja dos o más espacios en¬ 
tre renglones, en forma permanente. 
Con un valor cero, el espacio es el nor¬ 
mal. 


-FCTN 0: este programa sirve para 
guardar nuestro trabajo. Si nos olvi¬ 
damos de usarlo al finalizar nuestra 
tarea, pulsemos LIST y volvamos a 
grabarlo en forma normal o con RUN. 
-FCTN G: elegir letras grandes. 
-FCTN ,C: letras comunes 
-FCTN M: letras medianas 


La> computadoras pueden ser una 
hoNbre *4 cuando chista ^ 

En ca so hablar chol* 4k uno 

conocidos»: ThSíord 
******** 


Va dejo *ík ski~ tarea cKCUíioa 
transferir Mensajes sobre papel 
Todos coMoceMos La seMejanza enl 
V de Las Maquinas de escribir, 
confutadoras son capaces de reai 
de Los proqranas)es razonabL^ 
aLquien que quisiera uer a su Hj 
escribir ñas potente que Las coi] 
Para esto se creo eL editor de 


-FCTN I: letras chicas. 

Es aconsejable poner primero el an¬ 
cho de la hoja, luego el tamaño de le¬ 
tras y después la tabulación. Todo lo 
escrito se transformará en un progra¬ 
ma listo para s er cargardo con MER¬ 
GE. 

En la pantalla de este ventajoso utili¬ 
tario se detallan varias características 
del texto que estamos escribiendo: 
-ESPACIOS+LETRAS: da el total de 
caracteres que tiene el texto. 
-TOTAL DISPONIBLE: da los espa¬ 
cios vacíos medidos en renglones de 
impresora. 

-ANCHO HOJA REAL: va variando 
de acuerdo con el tamaño de letras, 
para que el ancho de hoja que elegi¬ 
mos al pulsar FCTN A se mantenga 
constante en la impresora. 

Una carta o escrito se puede realizar 
en varias etapas, y después es posible 
mezclar los programas resultantes 
con MERGE, de la manera que prefe- 
ramos. Pero antes de mezclarlos no 
nos olvidemos de cambiarle el núme¬ 
ro de línea (usando el comando RES) 
de tal forma que se superpongan los 
dos programas a mezclar. 


Hay líneas de programación que tie¬ 
nen más de 10 renglones. Para poder 
cargarlas se procede así: 

1- no dejar espacios antes y después 
de cada (::) 

2- cuando se trabe el cursor al final del 
quinto renglón pulsemos (ENTER)- 
(FCTN REDO)- y con (FCTN D) lle¬ 
vemos de nuevo el cursor hasta el fi¬ 
nal de la quinta línea y continuemos. 

ADAPTACION DEL 
PROGRAMA A OTRAS 
MAQUINAS 

Este programa fue realizado para fun¬ 
cionar con una impresora OKIDA- 
TA/MICROLINE 83 de 220 caracte¬ 
res, y se puede adaptar a otras impre¬ 
soras de la siguiente forma: 

1 - ü'nea 400: modificar lo que está en¬ 
tre comillas, según como se abra un 
archivo en nuestra impresora. 

2- línea 400: dentro del CHR$ que es¬ 
tá antes de las comillas, poner un nú¬ 
mero igual a la cantidad de caracteres 
de lo que escribimos entre las comi¬ 
llas. 
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3- línea 410: donde dice 
CHR$(3)&”200" cambiar 200 por el 
máximo de caracteres que soporta 
nuestra impresora; y el CHR$ por la 
cantidad de cifras que tenga ese máxi¬ 
mo. 

4- línea 490: AN=75, el valor de AN 
debe ser el de la cantidad de caracte¬ 
res necesarios como para poder escri¬ 
bir una carta o si no, el mismo del an¬ 
cho que soporte nuestra impresora. 

5- línea 1330: letras grandes. Si nues¬ 


tra impresora no usa para esto 
CHR$(30);CHR$(31), modifique¬ 
mos como en el punto 3 donde dice: 
CHR$(2)&”30" y CHR$(2)&”31" 
por el de nuestra impresora. 

6- línea 1340: letras medianas, igual 
que en el punto 5. 

7- línea 1350: letras comunes, igual 
que en el punto 5. 

8- línea 1360: letras chicas, igual que 
en el punto 5. 


VARIABLES 

IMPORTANTES: 


MEC$: nombre del programa 
AN: cantidad de caracteres para escri¬ 
bir 

TA: tabulación 
TAP: tabulación permanente 
ES: espacio entre renglones 
U: espacios+letras 
AN1: ancho de hoja real 

ESTRUCTURA DEL 
PROGRAMA: _ 

100-410: presentación e inicializa- 
ción 

420-540: impresión en pantalla de 
mensajes y bifurcaciones principales 
550-740: selecciona formato de im¬ 
presión 

750-940: impresión 
950-1140: analiza las tabulaciones 
1150-1320: mensajes 
1330-1520: setea el formato para im¬ 
presión 

Listado en Página 68 
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MU 

Con el auspicio de 

I COMPUTACION 



1 


HISTORIAS DE LA 

ARGENTINA 

SECRETA. 


K04 


IP A R A T O D OS 


Lanza este concurso que permitirá que dos escuelas argentinas posean un equipo completo de 
computación Talent MSX y suscripciones de la revista K-64. 

Además, las primeras 100 escuelas que escriban recibirán una colección completa de nuestra re¬ 
vista. 

Los alumnos tienen que hacer llegar una carta -por correo o personalmente- a nombre de "Histo¬ 
rias de la Argentina Secreta”, ATC, Avda. Pte. Figueroa Alcorta 2977, (1425) 
Buenos Aires. En la misma deberán indicar nombre y apellido, nombre de la escuela a la que 
concurren, grado y dirección del establecimiento. 

Es una oportunidad para hacerle un regalo a la escuela. 

- ■ - - 
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PROGRAMA 


FICHERO DE TARJETAS 

COMPUTADORA: C-64 
CONF.: 64K 
CLASE: UTI 

AUTOR: JORGE SPIRIDONIDIS 




ste programa puede 
considerarse como un 
trabajo práctico del 
manejo de ficheros 
secuenciales. 

El mismo fue realizado tomando di¬ 
versas subrutinas y trucos que están a 
disposición de todos los “commodo- 


E 


FIGURA 1 


IfcNTRAR DATOS 
HNTERIOR TARJETA 
«IGÜIENTE TARJETA 
l&ER TARJETA NRo. . 
«OSCAR POR TITULO 
«ORREGIR TARJETA 


«OAD FICHERO 
«RABAR FICHERO 
«MPRIME TARJETA 
HANTALLA DE AYUDA 
DIRECTORIO 
«IR PROGRAMA 


AL COMENZAR EL TRABAJO VERA EN PANTA - 
LLA LA TARJETA NRO.O; LUEGO UNA LINEA 
CON LAS INICIALES DE LOS COMANDOS Y 
MAS ABAJO EL SIGNO > SOLICITANDO UNA 
INSTRUCCION. 

*** ELIJA SU OPCION *** 


CONTINUAR 


P/ TARJETA 


empleo de la disquetera y de la impre¬ 
sora, cuya utilización es imprescindi¬ 
ble para todos aquellos que se intere- 

FIGURA 2 


LA OPCION fcNTRAR PERMITE INGRESAR DA¬ 
TOS EN MODO DIRECTO O INVERSO INCLUSO 
CARACTERES GRAFICOS Y CAMBIAR EL CO - 
LOR DE LA ESCRITURA. SI ES NECESARIO 
IMPRIMIR LAS TARJETAS NO ES CONVENIEN¬ 
TE ESCRIBIR EN VIDEO INVERSO.- 
UNA BARRA COLOR AZUL INDICA EL ESPACIO 
DISPONIBLE.- 

PARA CORREGIR UTILICE SOLO Ififitftafctt- 
CUANDO FINALICE LA ESCRITURA DE UNA 
LINEA O BIEN NO DESEE INGRESAR DATOS 
EN LA MISMA, PULSE UtfiUlffll 
AL FINAL DE LA 8VA. LINEA PREGUNTARA: 
ALGUN CAMBIO? 

LA OPCION IIP LO LLEVA A LA SIGUIENTE 
TARJETA 

LA OPCIÓH *1 LE PIDE NRO. DE LINEA Y LA 
BORRA.- 


■ammiw P/ CONTINUAR 

■aamiaf p/ tarjeta 

_1 

sen en la confección de programas u- 
tilitarios. 


EL PROGRAMA 


ristas” en la bibliografía mencionada 
al final del artículo. 

Por otra parte, se trató de realizar un e- 
jemplo que realmente tuviera alguna 
utilidad práctica, para de este modo 
resarcimos del esfuerzo del tipeado. 
Otro de los objetivos impuestos fue el 


Muchas veces nos encontramos con 
la necesidad de archivar pequeños 
textos, rutinas útiles, pokes interesan¬ 
tes, trucos, índices de revistas, títulos 
de programas, archivos de discos con 
su título y contenido, etcétera. 

La mayoría de estos casos no se pres¬ 


tan a ser estrictamente formateados 
como una Base de Datos convencio¬ 
nal lo requiere. Además, tampoco a- 
ceptan caracteres gráficos, diferentes 
colores de escritura y o escribir en vi¬ 
deo inverso, de lo que necesitamos 
disponer para este planteo. 

La propuesta es un FICHERO DE 
TARJETAS muy elemental pero de 
seguro, rápido y simple manejo. 

El programa no escatima los REM pa¬ 
ra su comprensión y, como anticipa¬ 
mos, se incluye la bibliografía consul¬ 
tada. 

Por otra parte las cinco Pantallas de 
Ayuda disponibles son accesibles en 
cualquier momento y habilitan como 
operador a cualquier pariente volun¬ 
tarioso. 

Tal como amargamente se aprende, lo 
más importante en un fichero secuen- 
cial, cuyos registros están totalmente 
contenidos en la RAM, es que bajo 
NINGUNA circunstancia, ya sea por 
presionar equivocadamente una tecla 


FIGURA 3 


IfOAD: PERMITE CARGAR UN FICHERO EXIS¬ 
TENTE EN EL DISCO. INGRESE EL NOMBRE Y 
PULSE laotuurtti 

SI NO RECUERDA EL NOMBRE EXACTO, RECU¬ 
RRA AL DIRECTORIO. 

«RABAR: GRABA TODO EL FICHERO EN EL 
DIS ‘"N LAS TARJETAS VACIAS RESER - 
VANDO EL ESPACIO. 

INGRESE EL NOMBRE i PLLSE lÜfiWIMll 

BMMMMi EN CASO QUE EL NOMBRE SEA 
EL DE UN FICHERO EXISTENTE, EL PROGRA¬ 
MA INTERPRETA QUE ES UNA ACTUALIZACION 

y laammm sobre el mismo las novedades. 

ANTES DE ASIGNAR UN NOMBRE CONSULTE EL 
DIRECTORIO. 


P/ CONTINUAR 
P/ TARJETA 


o bien porque se presente una condi¬ 
ción de error en la disquetera (olvidar¬ 
se de introducir el disco), etcétera, se 
esfumen los datos tan trabajosamente 
introducidos. 

Aparte de todos los cuidados en el 
software, es una buena práctica gra¬ 
bar periódicamente el fichero durante 
una sesión de escritura, para minimi- 
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zar las pérdidas en caso de un corte de 
la energía. Para identificar que el fi¬ 
chero en curso ha sido grabado, al co¬ 
mienzo de cada campo se imprimirá 
un signo más (+). 

Las figuras 1 al 5 corresponden corre- 

FIGURA 4 

INTERIOR Y SIGUIENTE :PERMITEN EXAMINA 
LAS FICHAS EN FORMA CORRELATIVA. 

BER :PRESENTA EN PANTALLA LA TARJETA 
DEL NUMERO QUE SE INGRESE. 

BUSCAR : PREGUNTA POR EL TITULO DE UNA 
TARJETA Y LA PRESENTA EN PANTALLA. 

BORREGIR : LLEVA EL PROGRAMA AL MISMO 
ESTADO QUE CUANDO FINALIZO EL INGRESO 
DE DATOS CON: ALGUN CAMBIO? 

BMPRIME : SACA POR IMPRESORA LA TARJETA 
DE PANTALLA; ENTRAN 3 TARJETAS POR PA¬ 
GINA DE 12’ CON ESPACIADO AUTOMATICO. 


■WBIIIll P/ CONTINUAR 
■aamw P/ LA TARJETA 


lativamente a las Pantallas de Ayuda 
y la Figura 6 a la Pantalla de Trabajo, 
y han sido volcadas a la impresora u- 
tilizando la rutina HARDCOPY del 
Simon’s BASIC. La figura 7 muestra 
la salida por impresora de una tarjeta, 
tal como lo presenta el programa. 

TIPEADO 


Conviene hacerlo en varias sesiones 
probando el funcionamiento parcial 
de cada etapa que vamos incorporan¬ 
do. 

IMPORTANTE: las líneas 30 y 35 
deben añadirse sólo cuando todo el 
programa funcione satisfactoriamen¬ 
te. 

En la línea 50, suprimamos GOSUB 
8000 y también hagámoslo de allí en 
adelante hasta tanto no se escriba la 


FIGURA 5 


IMCflUMMlH : ANTES DE IMPRIMIR TARJETAS 
DE UN FICHERO NUEVO, [URABARLO PREVIA - 
MENTE. ESTO COLOCA EL NOMBRE EN LA CA¬ 
BECERA DE CADA TARJETA. 

PANTALLAS :ESTE COMANDO VISUALIZA LA 
PRIMERA PANTALLA DE AYUDA; CON loMlKMí»: 
VA ACCEDIENDO A LAS SIGUIENTES. 

DIRECTORIO :EXAMINA EL CONTENIDO DEL 
DISCO; LA LECTURA SE DETIENE MIENTRAS 
PRESIONE UNA TECLA. AL FINALIZAR, CON 
IttPUmrttl VUELVE A la tarjeta. 

lalN :PIDE CONFIRMACION Y SALE DEL PRO¬ 
GRAMA PERO SIN BORRARLO. 


■OWWMtt» P/ CONTINUAR 

■ajmilflM P/ TARJETA 


SALIDA POR PANTALLA 


SALIDA POR IMPRESORA 

+++++++++++ TU + MICRO + C64-SEM ++++++++++++ 

H-h 

tt 6 TITULO-TU MICHO C64-SEM 
H-h 

A FONDO >SOLO FLIGHT 8 

H-h 

TECLA A TECLA >PESO IDEAL 14 

H - h 

LA CHISTERA >SAVER PARA C-64 21 

4- f 


HARDWARE > IMPRESORA COLOR GP-700 28 
CHISPAS >INHABILITAR RUN/STOP Y RES 
TORE * BUFFER DEL TECLADO * VELOCI¬ 


DAD CURSOR * NO LISTAR 31 

4 - y 

SOFTWARE >GRAFICOS EN EL C-128 33 

4- y 


primera Pantalla de Ayuda; estas son 
trabajosas pero realmente vale la pena 
disponer de ellas. Una forma sencilla 
es emplear el UTTLIPRINT, una mag¬ 
nífica ayuda para confeccionar panta¬ 
llas. (ver Números 9 y 12, páginas 12 
y 34 respectivamente de la Revista U- 
suarios Drean Commodore). 
Recomendamos el siguiente orden de 
trabajo: 

1- tipear hasta 370 y ver que la presen¬ 
tación sea correcta. 

2- continuar hasta 4560 y comprobar 
la escritura, corrección y manipula¬ 


ción de las Taijetas en Pantalla. 

3- 6500 a 6780, * DIRECTORIO* 

4- 5000 a 5210, *CARGAR FICHE¬ 
RO* 

5- 5500 a 5710, *GRABAR FICHE¬ 
RO* 

PANTALLA DE TRABAJO 


PANTALLA D» TRAPAJO 

4-(. 

El O TITULO- 1 


4 - y 



4- y 

t ii i > e i ■ > if i s u 


>E 


6- 7000 a 7200, *IMPRIMIR* 

7- Completar la línea 50 e incorporar 
una Pantalla de Ayuda por vez. 

8- Incluir las líneas 30 y 35. 


UTILIZACION 


El fichero de Tarjetas está totalmente 
autodocumentado. Su manejo es muy 
seguro, sólo debemos seguir las indi¬ 
caciones. Acepta todos los símbolos 
gráficos y colores de escritura de la C- 
64. Se debe tener en cuenta que cada 
cambio de color dentro del campo o- 
cupará un espacio sobre el margen de¬ 
recho visualizándose como un cua¬ 
drado de color. 

IMPORTANTE: No se aceptan los 
dos puntos (:) ni la coma (,) ya que la 
disquetera no los toma ni tampoco 
toma lo que quede a su derecha. 

Listado en Página 70 



1NTERFACE CENTRONICS 
P/1MPRESORA 


INTERFACES, PERIFERICOS, 
IMPRESORAS, CONVERSIONES 
SERVICE OFICIAL CZERWENY AUTORIZADO 


LAPIZ OPTICO 


Ventas por Mayor y Menor 
Rodríguez Peña 466 (1020) 


I 


< 6sts«j¡»«saaaa 


LLEGARON LOS 
PROGRAMAS ATAR!!!! 

Envíos al interior 
Tel.: 45-7570 
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PROGRAMA 


STOCLI 



COMP.: MSX 
CLASE: UTIL. 

AUTOR: LEANDRO H. CINTI 


PARTICIPO DEL CONCURSO “PROGRAMADOR DEL AÑO” 


ste programa está di¬ 
señado para llevar el 
control del stock y de 
los clientes en un co¬ 
mercio. 

Para aprovechar todas las ventajas 
que tiene este tipo de utilitario, STO.- 
CLI fue creado para utilizarla disque- 

tera. 

El menú de stock tiene las siguientes 
opciones: 

1- Prepara los archivos para trabajar 

2- Se toman los parámetros más im¬ 
portantes como precio, cantidad, des¬ 
cripción, etcétera y se cargan con un 
código especial que la computadora 
da al usuario. 3- Se eligen los campos 
a modificar 4- Se registran las ventas. 
Se guarda el código vendido, la hora, 
etcétera. 5- Muestra el contenido de 
un artículo dado por el usuario 6- Lis¬ 
ta ordenadamente en forma alfabética 
un bloque elegido 7- Cierra los archi¬ 
vos y analiza todos los trabajos 

8- Muestra el importe de lo vendido 
en el mes 9- Muestra un histograma y 
los importes por mes 
A- Se registra lo que se extrajo sin pa¬ 
gar 

B- Informa de lo inexistente en stock 
C- Repone un artículo 
D- Acepta y graba los cheques en una 
fecha 

E- Permite averiguar si no hay che¬ 
ques para cobrar 
F- Dirige al menú principal 
G- Desvía al menú de clientes 

Por otro lado, estas son las opciones 
que presenta el menú de clientes: 

1- Registra los pagos a un determina¬ 
do código 2- Ficha personal del clien¬ 
te 3- Saldo actual de un cliente 4- Mo¬ 
dificar datos del cliente 5- Muestra las 
fechas de pagos y el saldo actual 6-1- 
nicializa los archivos para los clientes 
7- Cierra todos los archivos 
A- Desvía al menú de stock 
B- Muestra los datos del cliente 
C- Lista en forma ordenada por blo¬ 



que todos los clientes 
D- Se dirige al menú principal 
Al inicializarse los archivos, se perde¬ 
rán todos los datos entrados con ante¬ 
rioridad. 

No nos olvidemos de salir del progra¬ 
ma a través de la opción “FIN DE T A- 
REAS” o “ FINAL DE TRABAJO”. 
Para entrar la fecha se ingresa prime¬ 
ro el día, el mes y luego el año; y pa¬ 
ra la hora, primero la hora, después 
los minutos y por último los segun¬ 
dos. 

VARIABLES IMPORTANTES: 

N$: descripción del artículo 

S$: precio de venta 

E$: precio de costo 

C$: cantidad del artículo 

DIC$: día de cobro del cheque 

MC$: mes de cobro 

AC$: año de cobro 

IC$: importe del cheque 

BN$: banco de cobro 

NC$: número de cheque 

P3$: total vendido del mes 

MI$: mes en que se efectuó la venta 

DP$: descripción de la venta 

CN$: cantidad de venta 

DA$ JI$,IR$,SR$: día, hora, minutos 

y segundos de la venta de un artículo 

NP$: nombre de la ficha de compras- 

pagos 

FP$: fecha de pago 
NT$: nombre de la ficha personal 
ID$: dirección de la ficha personal 
AW$: teléfono 
H$: entrega mensual 


PTFIN: contiene la última venta 

ESTRUCTURA DEL PROGRA¬ 
MA: 

10-120: apertura de archivos 
130-150: dirigir opciones 
160-180: menú de stock 
190-280: dirige opciones del menú 
principal 

290-730: inicialización de archivos 
740-800: modificaciones 
810-1120: fin de ingreso de datos 
1130-1210: fin de ventas 
1220-1260: impresión 
1270-1450: entrada de datos 
1460-1470: fin de trabajo 
1480-1560: campos de modificacio¬ 
nes 

1570-1730: averiguar cheques 
1740-2080: muestra de cantidad 
2090-2260: histograma 
2270-2480: reponer stock 
2490-2680: varios 
2690-2760: inexistencias 
2770-2920: acepta cheques 
2930-3020: ingreso de hora 
3030-3200: grabado de hora de venta 
3210 : subrutina de truncado 
3220-3290: clientes 
3300-3670: pagos 
3680-3780: datos del cliente 
3790-3830: saldo actual 
3840-3980: modificación de datos 
3990-4190: revisión de fichas 
4200-4340: muestra de datos 
4350-4420: inicialización de archi¬ 
vos 

4430-4500: listado de clientes 
4510-4520: presentación 
4530-4600: exceso de grabaciones 
4610-4700: exceso de cheques 
4710-4780: exceso de datos persona¬ 
les 

4790-4930: exceso de ventas 
4940-5100: exceso de registros 
5110-5200: exceso de compras 
5210-5360: exceso de varios 
5370-5430: menú principal 

Listado en Página 00 KF 5 
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PROGRAMA 


PORTFOLIO 



CLASE: UTILITARIO 

COMP.: DREAN COMMODORE 64 -128, 

MSX, SPECTRUM 



m 

rs 

ib 

(3 

13 

13 

13 

(3 

{3 

13 

(3 

(3 

13 

(3 

13 


4 

9 

13 

19 

23 

26 

35 

40 


Sus ocho números personales 


m 

ai 

si 

si 

ai 


1 discreto encanto de 
ganar... y que la com¬ 
putadora haga las 
cuentas de todas las 
tarjetas que posea¬ 
mos, incluidas las de nuestros ami¬ 
gos. 

El PORTFOLIO es un juego/entrete¬ 
nimiento educativo que propone un 
diario porteño cada mañana. 

Con las cotizaciones de apertura y 
cierre de empresas de la Bolsa de Co¬ 
mercio, se establecen 40 variaciones 
y un número clave. Los lectores pose¬ 
en una o varias tarjetas personales, 
que contienen ocho números cada u- 
na. 

Si la suma de las ocho variaciones que 
indican los números de una tarjeta es 
igual a la clave, entonces el poseedor 
de dicha tarjeta gana el PORTFOLIO 
y se hace acreedor de alguno de los 
premios del juego. 

“PORTFOLIO 
COMPUT ARIZ ADO” 


El programa que presentamos está 
destinado a aquellos que tienen mu¬ 
chas tarjetas y se les hace pesada la ta¬ 
rea de comprobar una por una todas 
las sumas y comparaciones. 

Ha sido realizado con las sentencias 
más usuales del BASIC, así puede ser 
adaptado a cualquier computadora. 
En las páginas de listados enontrarán 
una versión para las Drean Comino- 
dore y otra para las de la norma MSX 
y para las SPECTRUM. 


MODO DE USO 


Luego de tipeado, se deben colocaren 
las últimas linas algunos datos. Esto 
se hace justamente desde la línea600. 
Allí dice DATA 6. Este número indi¬ 
ca la cantidad de tarjetas que tenemos 
guardadas para ser controladas. En 


nuestro ejemplo tenemos solo seis 
tarjetas (líneas 610 a 660). 

En cada una de estas colocamos pri¬ 
mero los números y luego el nombre 
del dueño de la tarjeta. 

Una vez terminado esto grabemos el 
programa en un casete o en un disque- 
te. (Nota : cada vez que ingrese una 
nueva tarjeta no nos olvidemos de dos 
cosas: 1. actualizar el número de tar¬ 
jetas en la línea 600 y 2. grabar el pro¬ 
grama antes de ejecutarlo). 

Ahora sí podemos comenzar la ejecu¬ 
ción del programa colocando RUN y 
oprimiendo la tecla RETURN. La 
computadora irá preguntando una por 
una las variaciones que se publican e- 
se día, y luego la clave ganadora. 
Finalizado esto se mostrará en panta¬ 
lla el cuadro total, por si se introdujo 
mal algún valor y hay que modificar¬ 
lo. Una vez que se le dá el “OK”, la 
computadora efectuará todos los cál¬ 
culos y nos dirá si hubo alguna tarje¬ 
ta ganadora y, en ese caso, a quién 
pertenece. 

También aparecerá la suma que obtu¬ 
vo cada tarjeta, para poder comparar¬ 
la con la clave y saber si se estuvo cer¬ 
ca de obtener el éxito. 

Este programa es muy apropiado y su 
uso se justifica si se tienen que revisar 
muchas tarjetas. Hay que tener en 
cuenta que el trabajo del operador que 


debe ingresar las variaciones día por 
día es el mismo, así tenga que contro¬ 
lar una tarjeta o mil. 

ESTRUCTURA 


10-60 Carátula 
70-140 Lectura de tarjetas 
150-190 Ingreso de variaciones 
200-290 Muestra las variaciones 
300-400 Corrige variaciones 
410-480 Calcula PORTFOLIO 
490-550 Cartel del ganador 
560-590 Informa resultado de cada 
tarjeta 

600 DATA número de tarjetas 
610-... DATA números de la tarjeta 
(8),dueño de la tarjeta. 


VARIABLES 


U Variables de lazo 
N Número de tarjetas 
K Clave 

C Número de variación a corregir 
LM Bandera que indica la existen¬ 
cia de un ganador 

V(40) Variaciones de las 40 acciones 
A(N,8) Números de cada tarjeta 
A$(N) Nombre del dueño de cada tar¬ 
jeta 

S(N) Suma de cada tarjeta 
B$ Variable alfanumérica auxiliar 
Listado en Página 77 

































PROGRAMAS 


Como tipear 
los programas 


K 


64 publica todos 
los meses pro¬ 
gramas de 
diferentes com¬ 
putadoras. En esta sección 
damos los listados. Hay que 
buscar la explicación de los 
mismos en la nota corres - 
pondiente que se halla en la 
revista. Los usuarios de 



Commodore se encuentran 
frecuentemente ante un 
problema de símbolos que 
no tienen los usuarios de 
otras máquinas. Acudimos 
en su ayuda y publicamos el 
listado completo de ellos y 


las teclas que hay que 
oprimir para que el mismo 
sea escrito. Por ejemplo, 
cuando aparezca el corazón 
(en modo reverse) debemos 
presionar juntas las teclas 
SHIFT y CLR/HOME. 



LISTADO 


PRESIONE 


SHIFT CLR/HOME 

E 

CRL/HOME 

f-* 

SHIFT CRSR 

s 

CRSR 

II 

SHIFT CRSR 

11 

CRSR 

tfi 

CTRL 9 

a 

CTRL 0 

■ 

CTRL 1 

19 

CTRL 2 

8 

CTRL 3 

k 

CTRL 4 

ii 

CTRL 5 

II 

CTRL 6 

rjk 

Mi 

CTRL 7 


CTRL 8 



S F3 

ft¡ SHIFT F3 

II F5 

SI SHIFT F5 
II F7 

■ SHIFT F7 
□ COMMODORE I 
E COMMODORE 2 
>5 COMMODORE 3 

¡S COMMODORE 4 
C COMMODORE 5 
■I COMMODORE 6 
2 COMMODORE 7 
■* COMMODORE 8 


TURBO PRINT 


Viene de pág. 52 Spectrum 


PROBRttMfl DeOE^OSTRflCIQN; 

i PflPZP. 0; BORDEP 0: XNK 5: C 
L5 : FOR j=3© TO 4.©: BEEP 0.©1,J 
NEXT j: PRINT PT 0 . ©; "TURBOPRI 

NT" 

3 PRINT P.T 15.0; ‘ Por CHRI5TIR 
N TOTTINO "; RT 15,0;"Pa r a "; INK 

-f - popFD p: -'Kh! 1 ' 

4 PRINT RT 20,10; PAPER 0J IN 
K 4.; FLR5H I; "CARGANDO" 

900 PRINT hT 1,0: INK ©: LORD ” 
T . P . OBJ “CODE . LORD 11 DEMÜMRC"COD 
E LORD LETRRTURBO"CODE : LORD 

"INTER"CODE 

901 INK 5 
910 CLS 

999 POKE 49998,60: PÜKE 49999,1 
15: RRNDOMIZE USR 29000: PRU5E 1 
0: CLS 

1000 PRPER 0: BOEDER 0: INK 6: P 
OKE 29502,54: POKE 29503,156: Pü 
KE 29504,5: POKE 29505,5; POKE 2 
9506,255 

1010 FOR j=i TO 27 STEP 3: FOR q 
=0 TO 18: POKE 29500,q: POKE 295 
01,j RRNDOMIZE USR 50002: NEXT 
q: NEXT j 

2000 PAUSE 100 

2001 CLS 

2010 POKE 29502,46: POKE 29503,1 
17. POKE 29504,3: POKE 29505,3 
2020 POKE 29500,9: LET w=l: FOR 
.t=30000 TO 30548 STEP 72: RRNDOM 
IZE j. POKE 29502,PEEK 23670: PO 


KE 29503,PEEK 23571: POKE 29501, 
w: LET w=w+3: RRNDOMIZE USR 5000 
2: NEXT j 

2O40 PAUSE 100: Gü TO 910 


LISTADO T.P.QBJ 

COMIENZO 50000, LONGITUD 166 

205 107 13 62 2 205 i 22 62 8 50 

73 195 42 75 195 66 122 254 255 
200 35 94 229 2©5 250 195 34* 76 
195 225 35 76 35 70 35 94 35 65 
122 50. 75 195 123 5© 74 195 229 
42 76 195 i© 119 3 35 55 73 195 
61 50 73 195 254 O 194 131 195 

29 123 254 O 202 167 195 124 2Í4 

6 103 35 52 6 50 73 195 195 131 
195 21 122 254 © 202 24© 195 56 

74 195 95 37 123 51 254 © 202 1 
90 195 43 195 15© 195 229 124 19 
7 6 © 14 32 9 193 172 202 219 19 
5 225 197 6 0 14 32 9 193 62 5 5 
0 73 195 195 131 195 225 124 214 

7 103 197 6 © 62 32 79 9 193 62 
6 5© 73 195 195 131 195 225 35 

62 6 50 73 195 195 96 195 122 15 
15 15 230 224 179 111 38 54 122 
230 24 132 103 201 © © 

LISTADO DEMÜMRC 

COMIENZO 29000, LONGITUD 66 


t*2 3 50 64 115 50 65 115 52 255 
*0 66 115 33 45 117 22 0 62 0 fi- 
0 50 6© 115 245 120 5© 61 115 24 
1 34 62 115 245 229 197 213 2©F 
52 195 209 193 225 241 444 245 
12© 254 30 194 152 113 241 60 6 
0 60 254 24 194 92 113 213 17 y 2 
0 25 2©9 20 245 122 254 1© 194 
155 113 241 201 241 195 97 113 2 
41 195 9© 113 0 


LISTADO LETRRTURBO 
COMIENZO 30000, LONGITUD 720 


255 125 191 16© 15© 191 125 255 
255 0 255 © © 231 36 165 255 1 2 
53 5 5 253 i 255 00000000 
155 165 155 155 155 155 155 155 
0 00000 0 0000 0 0000 
165 165 165 165 165 189 129 255 
00000000 255 129 159 165 
165 165 165 155 0 0 00000© 
255 129 159 155 155 155 155 155 

155 165 165 165 165 165 155 165 

0 0 0 0 0 0 0 0 165 165 165 165 

165 165 165 165 165 164 167 16© 

160 191 128 255 255 © 255 © © 2 

55 © 255 155 37 229 5 5 253 i 25 
5 255 125 191 16© 16© 167 164 15 
5 255 © 255 © © 255 © 255 255 i 
253 5 5 229 37 165 155 155 155 1 
55 165 165 165 165 © © © © © © © 
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Continúa TURBO PRINT 


0 189 129 255 00000 155 155 
185 i55 155 159 129 255 0000 
0000 0 0 000000 255 128 
191 150 155 152 152 152 255 0 2 

55 0 255 125 125 125 24-0 12 225 

9 229 37 37 37 152 152 153 150 1 
50 153 152 152 255 0 255 0 0 255 
6 255 201 2 204- 50 80 284 2 201 
152 152 152 156 160 191 125 255 

125 128 125 255 0 255 0 255 37 

37 3" 229 9 225 12 24-0 255 125 1 
91 160 160 167 165 165 255 0 255 

O 0 255 0 255 255 1 253 5 5 229 

37 229 165 165 165 155 165 165 

155 165 0 0 0000 0 0 165 165 

165 165 165 165 165 155 167 164- 

167 160 160 191 128 255 255 O 25 

500 255 0 255 165 155 229 5 5 

253 1 255 255 128 191 154- 155 16 
5 165 165 255 8 255 3 255 3 8 8 

255 1 253 5 229 37 37 37 165 155 

164 157 164 165 165 155 0 255 O 
255 0 255 0 0 37 229 5 253 1 25 

583 165 165 165 155 165 189 12 

9 255 8 8 8 8 8 3 8 3 0 3 0 3 8 

8 8 3 255 128 191 168 168 167 15 

¿ 1 55 255 3 255 3 3 255 8 255 25 

5 1 253 5 5 229 37 165 155 165 i 
55 155 155 155 155 165 0 8 8 8 8 

8 8 8 * 159 129 255 8 8 8 0 8 155 

165 165 165 155 189 129 255 8 8 
0000 0 0000000008 0 
008888 255 129 189 129 255 
0 •0* 0 0* 0 0 -0' 0' 0 0 0 0 0 0 0 C 


* 0 0 0 255 129 189 155 155 155 i 
65 165 0000000000008 
O 0 0 155 165 155 165 155 189 i 
29 255 30000000 £55 128 i 
85 157 164 164- 165 165 128 224- 3 

2 176 144 24 I ¿ 140 255 129 189 

165 165 165 165 165 155 155 165 

165 165 165 165 165 196 78 98 3 

5 49 17 24 8 165 165 165 165 165 

165 165 37 155 155 165 165 165 
159 129 255 12 4 6 2 3 1 1 0 37 

165 229 37 37 61 129 255 255 128 

191 150 168 191 125 255 255 8-2 

55 0 8 231 35 165 255 i 253 5 5 
253 1 255 83888838 155 16 
5 165 165 165 165 165 165 8 3 8 
0003383 8 8 8 3 8 8 155 15 
5 165 165 165 159 129 255 8 3 3 

3 0 0 0 0 0 


LISTñDO I-T'EP. 

COMIENZO 40030, LONGITUD 258 

a 55 136 170 135 255 136 178 136 

255 136 178 137 ¿54 159 168 255 

255 14.3 248 255 3 255 8 255 255 

£4-8 7 £55 3 255 3 255 255 135 17 

3 283 63 252 2 255 255 139 171 I 

: 9 255 139 171 139 255 137 178 1 

39 252 14-3 165 14-3 128 255 8 255 

0 255 255 8 255 8 255 8 255 2 

4 224 l 255 8 255 8 255 4-5 15 3 


255 8 255 3 255 3 255 255 203 43 
235 31 251 11 251 248 159 175 1 
91 224 191 158 191 8 255 1 254 £ 
252 4 252 131 15 31 63 50 55 56 
56 194. 24 i 249 24-5 124 68 68 25 

2 8 255 3 255 125 12 “ 64 127 7 2 
55 7 255 3 255 3 255 224 191 163 

191 243 159 176 143 4 252 4 252 
4 254 1 £55 1 3 3 3 8 3 3 131 2 
45 224 192 192 0 192 192 193 54 
127 64 127 54 255 125 255 3 255 

3 255 7 £55 7 551 245 143 172 13 

9 254 137 178 135 3 255 3 255 8 

255 125 255 67 227 24 255 3 255 
8 255 194 199 24 255 8 255 8 255 

8 255 8 255 O 255 0 255 15 251 
27 235 63 283 171 139 255 136 17 
8 136 255 255 255 255 224 159 17 

4 137 255 255 255 255 3 255 3 25 

5 248 255 255 255 8 255 8 255 7 

255 255 255 3 252 58 238 255 255 

255 255 255 139 171 139 255 255 
255 255 3 

Listado programa cargador 


18 INPUT "Comienzo ■?";coí» 

28 INPUT “Longitud ?"jlon 
38 FÜR n = com Tü com+lon 
48 INPUT “ va lo r = ; va l 
50 PQKE n , v a 1 

68 PRINT ñT 10,12; "Dirección: " 


; n 

65 PRINT ñT 12,12;"Vator 

; va l 

70 NEXT n 


LA CAVERNA ENCANTADA 
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20 FOR ñ = l Tü 21 5TEP 
30 PRINT ñí h,0;h$ 

40 NEXT h 
45 FOR ñ=l TO 50 


46 NEXT H 
60 LET C$ =' 


Lñ CñUERNñ ENC 

GNTOftG 

70 FOR fi=l TO LEN 5$ 

90 PRINT ñT 18,ñ;C$ iñ TO ñ) 

180 PRINT ñT i0,ñ;B$iñ TO ñ) 

110 NEXT ñ 



22 

238 

250 

388 

310 

320 

430 

481 

482 

483 

484 

485 

486 

487 
485 

489 
418 

411 

412 

413 

414 

415 

416 

417 
458 
460 

490 

580 

581 

582 
510 
520 
538 
540 
560 
570 

00 

550 

600 

550 

900 


10 THEN GOTO 220 


IN 

IF LEN 
CLS 

PRINT ñT 10,12;"LISTO ?" 

IF INKEY$ = THEN GOTO 310 
PRINT ñT 10,12;" 

LET ti =0 
LET ññ = 16 
LET M $ = " < ** 

LET 52=28 
LET 55=2 
LET 53=23 
LET L =8 
LET 54=15 

LET C1=INT ÍRND*5)+3 

LET Ü2 = INT iRND*5) +15 

LET 55=13 

LET Ü3 = 1 

LET 55=22 

LET Cl=10 

LET C2=il 

LET 55=22 

LET Z10=0 

LET Z2=0 

FñST 

G05UB 5900 
SLOU 

POKE 16418,0 
PRINT ñT 21,0;Ná 

POKE 15415,2 
IF ññ=16 THEN GÜ5UB 3000 

IF ftñ=13 THEN GGSU8 3200 

IF ññ=10 THEN GOSUB 3400 

IF ññ=7 THEN GOSUB 3610 
IF ftñ=2 THEN GOSUB 3750 
IF INKEY$<>”" THEN GOSUB 10 

IF ññ=3 THEN GOSUB 3900 
LET Z2=Z2-10 
LET Z10=Z10+1 
GOTO 510 


1000 
1010 
5-1 
1820 
5 + 1 
1030 
58 

1040 

50 

1050 

00 

1060 


PRINT ñT ññ,BB;" " 

IF INKEY $ = ,, Z“ THEN LET 55=5 

IF INKEY$="X" THEN LET 55=B 


IF INKEY $ = 


THEN GOSUB 12 


IF INKEY$="M" THEN GOSUB 13 


IF INKEY$=" 


THEN GOSUB 15 


1890 

1100 


OR ZZZ =CÜDE 
ÜR ZZZ =CODE 
OR ZZZ =CODE 

THEN GOTO 7 


-i; 


LET Z2 


PRINT ñT ññ,BB; 

1070 GOSUB 2500 
1090 IF ZZZ =CÜDE "<" 

OR ZZZ =CODE "S" 

OR ZZZ =CODE "0” 

THEN GOTO S000 
IF ZZZ =C0DE "S" 

200 

1208 RETURN 

1258 PRINT ñT ññ-i,BB- 
1268 GOSUB 2508 
1275 IF ZZZ =CODE S’* THEN 
=Z2 + INT (RND*100+480) 

1288 IF ZZZ=CODE "8" THEN LET M= 
M + l 

1285 IF ZZZ=C0DE OR ZZZ=CODE 

"Y" THEN GOTO 7080 
1298 LET BB=BB-2 
1300 PRINT ñT ññ-1,BB+1;“ " 

1310 RETURN 

1350 PRINT ñT ññ-1,BB+1; 

1360 GOSUB 2500 

1378 IF ZZZ=ÜÜDE 8 THEN LET Z2 
=Z2 + INT (RND *180 + 488 3 
1350 IF ZZZ =ÜÜDE "8" THEN LET M = 
M + l 

1355 IF ZZZ =CÜDE 1" OR ZZZ=CODE 
“Y" THEN GOTO 7188 
1390 LET BB =BB +2 
1408 PRINT ñT ññ-1, BB-lj s ' " 

1418 RETURN 

1500 IF ññ = 16 ñND BB =29 OR fifi = 13 
ñND BB =2 OR HH = 10 ñND BB=23 THE 
N GOSUB 1S00 

1530 IF HH=7 ñND BB=2 THEN GOSUB 
1720 

1548 IF ññ=3 ñND BB =15 THEN GOSU 
B 1760 

1550 IF ññ=2 ñND BB=27 THEN GOSU 
B 1508 
1590 RETURN 

1600 PRINT ñT ññ,BB;“H“ 

1610 LET ññ=ññ-3 

1620 PRINT ñT ññ,BB;"*" 

1630 GOSUB 2808 
1648 RETURN 

1720 PRINT ñT ññ,BB;"H" 

173© LET ññ=ññ-4 

1748 PRINT ñT ññ,BB;"*‘* 

1745 GOSUB 2008 
1750 RETURN 

1760 PRINT ñT ññ,BB;"H" 

1770 LET ññ=ññ-l 

1780 PRINT ñT ftñ,BB; ,: *‘‘ 

1755 GOSUB 2008 

1798 RETURN 

1500 PRINT ñT ññ,BB;" 

1510 LET ññ =7 
1820 PRINT ñT ññ,BB;"* M 
1530 GOSUB 2800 
1540 RETURN 
2080 POKE 16415,0 
2010 PRINT ñT 22,19;Z2 
2020 POKE 16415,2 
2038 RETURN 


*; TñB 62+4- 


2580 LET ZZZ =PEEK íPEEK 16398+25 
6+PEEK 16399:' 

2510 PRINT "* M 
2558 RETURN 

2600 LET ZZZ =PEEK 'PEEK 16395+25 
6+PEEK 16399) 

2610 PRINT M* 

2628 IF ZZZ =CÜDE "*" THEN GOTO 5 
808 

2638 RETURN 
3000 PRINT ñT 16,B2; 

";TñB B2+5;" ” 

3010 LET B2 =B2-1 
3020 PRINT ñT 16,B2; 

3030 GOSUB 2600 
3050 PRINT ñT 16,B2+4; 

3060 GOSUB 2808 

3880 PRINT ñT IS,B2+S; 

3890 GOSUB 2600 

3110 IF B2 = l THEN PRINT P.T 16, B2 
";TñB B2+4; " ";TñB B2+3; " “ 

3128 IF B2 = 1 THEN LET 52=20 
3138 IF BB =6 OR BB = 12 OR BB=28 O 
R BB=26 THEN GOTO 7580 
3190 RETURN 

3200 IF 55=53 THEN GOTO 3215 
3205 IF BB= 38 OR BB=2* OR 55=25 
OR BB =22 OR BB=21 OR 55=28 OR BE 
= 19 OR BB = 16 OR BB = 13 OR B6 = 10 O 
R BB = 7 THEN GOTO 7508 
3210 GOTO 3310 
3215 PRINT ñT 14,B3;" “ 

3220 PRINT ñT ññ,BB.;" “ 

3225 IF BB >20 THEN LET BB =BB-1 
3238 IF B3 >28 THEN LET B3=B3-1 
3248 PRINT ñT 14,B3;"*" 

3250 PRINT ñT ññ,BB;"*" 

3310 PRINT ñT 13,B4; M " 

3320 LET B4 =54 +1 
3330 PRINT ñT 13,B4; 

334© GOSUB 2608 

3370 IF 64=18 THEN PRINT ñT 13,B 

3350 IF 54=15 THEN LET 54=3 
3398 RETURN 

3400 PRINT ñT 18,Cl," " 

3410 LET C1=INT (RND*4;+3 
3420 LET M$="l" 

3430 PRINT ñT 18,Cl; 

3440 GOSUB 2608 

3460 PRINT ñT 18 , C2 ; ** " 

3470 LET C2 = INT (RND+ 4) +19 
3480 PRINT ñT 18,C2; 

3490 GOSUB 2608 
3500 LET M$="S" 

3520 PRINT ñT 10,B5;“ " 

3538 LET 55=55+1 
3548 PRINT ñT 18,B5; 

3550 GOSUB 2680 

3550 IF B5 = 17 THEN PRINT ñT 18,B 


356 0 t ] 


3590 IF 55=17 THEN LET B5=7 
3595 IF BB = 1 OR BB=S OR BB = 11 OR 
55 = 14 OR BB = 17 OR 55=25 THEN GO 
TO 7508 
3600 RETURN 
3610 LET M$="S" 

3615 PRINT ñT 7,B6-9;" "; TñB BS; 

3620 IF B6 >22 THEN LET CS = 1 
3630 IF 56 <17 THEN LET C3=8 
3648 IF C3 = 1 THEN LET 56=65-1 
3658 IF C3 =0 THEN LET B6=B6 + 1 
3660 PRINT ñT 7,B6; 

3678 GOSUB 2600 
3700 PRINT ñT 7,BS-9 
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Continúa LA CAVERNA ENCANTADA 


3710 GüSUB 2600 

3735 IF BB=4 ÜR BB=7 OR BB = 12 QR 
BB = 15 OR BB =20 ÜR BB=25 OR BB=2 
4. THEN GOTO 7500 
3740 RETURN 

3750 PRINT RT 2,BSj“ "jTRB BS+5; 

3755 LET M$="ü“ 

3760 LET B8 =B3-1 
3770 PRINT AT 2,B3; 

3780 G05UB 2600 
3810 PRINT PT 2,BS+5; 

3820 GüSUB 2600 

3850 IF 88=17 THEN PRINT RT 2,83 

3860 IF B8=17 THEN LET B8=22 
3870 IF BB=14 ÜR BB=18 ÜR BB=21 
OR 88=24 OR BB=2S THEN GOTO 7500 
3880 RETURN 

3900 PRINT RT 2,C1;" "jRT 2,02;“ 

3910 LET C1=INT ÍRND+12)+3 
3920 PRINT RT 2,C1;“»“ 

3930 LET C2 = INT (RND + 12)+3 
3940 PRINT RT 2 , C2 ; ‘ 

3950 IF BB = 1 ÜR BB = 16 ÜR BB = 17 T 

HEN GOTO 7500 

3960 RETURN 

7000 LET Rh=;hR-1 

7010 LET BB=BB-1 

7020 GOTO 8000 

7100 LET AA=Afl-l 

7110 LET BB=BB+1 

7120 GOTO 8000 

7200 CLS 

7210 PRINT RT 2,5;"TIEMPÜ : "; Z1 

0 

7250 PRINT RT 4,5;"PUNTOS ; ";22 

7300 PRINT RT 6,5;“MÜNEDRS : ";M 

7350 PRINT RT 8,5,"BüNUS POR MÜN 
EDRS ; " 

7400 FÜR R = 1 TO M 
7410 LET L=L+200 
7420 PRINT RT 8,25;L 
7430 NEXT R 

7435 IF M=15 THEN GÜSUB 7470 
7440 LET 22 =22+L 

7450 PRINT RT 13,5;"TOTAL : “;22 

7455 PAUSE 2E4 
7460 LET L=0 
7465 GüSUB 8300 

7470 PRINT RT 10,5;"POR TENER 15 
MGNEDRS : 5000 PUNTOS 

HR5‘* 


7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 

7560 

7570 

7580 

7590 

7600 

8000 

8002 

8003 

8005 

8007 

8010 


LET 22=22+5000 
RETURN 

FÜR ' £'=Rh TO 19 
PRINT RT D-r, BB; 
PRINT RT D , BB; " *" 
NEXT D 

PRINT RT D-l.BB;" 
FOR R=1 TO 10 
PRINT RT D, BB; “ i 
PRINT RT D,BB;" 
NEXT R 
CLS 

GOTO 8010 
FÜR R=1 Tü 10 
PRINT RT Rh,BB; S 
PRINT RT RR,BB;" 
NEXT R 
CLS 

GÜSUB 8500 



8100 IF INKEY*< >"" THEN GOTO 200 
8110 GOTO 8100 
8300 FRST 

8310 FÜR R=1 Tü 21 
8320 PRINT RT A,©;N* 

8330 NEXT R 

8370 LET 22=22+20000-¡;210+20:¡ 
8380 GüSUB 8500 
3390 PRINT RT 2,0; 



GC 

FRST 

8520 PRINT RT 19,0;N* 

8530 PRINT RT 3,3;G*_ 

8550 PHINT hT 

8560 PRINT RT 18,0;G$ 


3570 IF 22>23 THEN LET 
8580 IF 22>23 THEN 
8590 PRINT RT 9,11; 

8600 PRINT'R?^4,lit 
T 16,1;“. . .. , , . ...... 

*; RT 16,14, “BB:‘ ";Z3 
8610 PRINT RT 7,0 G* 


H$ =D$ 



8620 PÜKE 16418,0 
8630 PRINT RT 23,0;G$ 

8640 PRINT RT 22,0;N$ 

8650 PÜKE 16418,2 
8700 RETURN 

890O PRINT RT RR,BB;" ;RT 0,0;N 

8920 FÜR H = 1 Tü 20 

8930 PRINT RT A,3;“*“,AT A,3i; s l 


8940 NEXT R 
8950 PRIN 

IJIJM, 


ülillllllil 



9060 PRINT RT 4,3, "HPPmP 

9070 PRINT RT 3,15;"HF* " 
H" 

9080 FÜR R = 1 Tü 3 

9090 PRINT RT 13+R,29; "H" 

9100 PRINT RT 10+R ,2; :, H" 

9110 PRINT RT 7+R,23;"H" 

9120 NEXT R 

9130 FOR R=1 Tü 4 

9140 PRINT RT 3+R,2; !1 H ¡: 

9150 PRINT RT 3+A,27;“H“ 

9160 NEXT R 


9210 

PRINT 

RT 

15,9;"g 

8“_ 

9233 

PRINT 

RT 

12,5; JS 

S g 

9250 

PRINT 

RT 

9,1; “g“ 

; TRB 6; “as 


TRB 21, 
9310 PR 
“;T RB 1 
9340 PR 


RT 1,15; 
; TRB 


__ 

9340 PRINT RT 6,10;"Y 
RB 26; " 8 " ; RT 7,33; 

9370 RETURN 
9999 SRUE “LA CAUERNA ENCANTADg 


r;T 


BINGO 
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]'"EiriG( 

15 PRINT RT 10,3;5$ 

30 PRINT RT 1,1;" EN LR PRNTR 
LLR APARECERAN 4 FILRS DE NU 

MEROS ELIJAN LAS QUE DESEE Y 

ANOTE EL N"QUE CORRESPONDA 

R LR FILR ELEGI -DR EN UN P 

RPEL ESTO DEMAN -DARA I MIN 

UTO 30 SEG. POR FAUÜR ESPER 

E" 

80 PRINT RT 21,7;"PULSA UNA TE 
CLfl" 

110 IF INKEY*="“ THEN GOTO 110 

120 CLS 

121 FRST 
200 RAND 

310 GÜSUB 2500 
420 DIM A (15) 

430 DIM B(15) 

440 DIM C(15) 

450 DIM D(15) 

460 DIM E(99) 

470 FÜR F = 1 Tü 4 

480 FÜR G = 1 Tü 15 

490 LET H=INT (99+RND)+1 

500 FÜR 1=1 Tü G-l 

510 IF H=E íI) THEN GOTO 490 

520 NEXT I 

53© LET E(G)=H 

540 NEXT G 

550 LET J = 15 

560 GüSUB 3000 

570 GÜSUB 3500 

580 NEXT F 

620 GüSUB 1600 

650 PRINT RT 21,7;“PULSA UNA TE 
CLR” 

660 IF INKEY*»"" THEN GOTO 660 
670 CLS 

680 PRINT “SE UERfiN LOS NUMEROS 
UNO R UNO" 

690 PRINT ”- 


700 PRINT 
CARTON 


CUANDO COMPLETE EL 
PULSE UNA TECL 


720 PRINT RT 21,7;“PULSA UNA TE 
CLR “ 

”730 IF INKEY * = " " THEN GOTO 73© 
735 CLS 
745 LET K=1 
750 DIM L*(99,2) 


THEN GOTO 330 


770 FÜR M=K Tü 93 
780 GüSUB 5000 
790 LET E(M)=N(M) 

795 PAUSE 20 
800 FÜR 0=0 Tü 10 
805 IF INKEY* <3 
810 NEXT 0 
815 LET K=K+i 
820 NEXT M 
830 CLS 

840 FÜR M = 16 TO 5 STEP -i 

850 PRINT RT M,4;S* 

851 SCRÜLL 
860 NEXT M 

-sasai 

CLS 
* 3 LET J=K 

. .0 PRINT “SUS NUMEROS FUERON" 

930 PRINT 

940 GÜSUB 1600 

960 PRINT RT 3,0;“ PULSA UNA TE 
CLR PRRR COMPROBAR LOS NUMEROS C 
A NT ADOS 

98© IF INKEY*=““ THEN GOTO 9S0 
990 CLS 

1010 GÜSUB 3000 
1020 CLS 

1030 PRINT “ NUMEROS CANTADOS 
1340 PRINT “ -- 


1345 SLÜW 
1053 FOR M = 1 Tü K 
1060 PRINT E ÍM); " 

1070 NEXT M 
1080 PRINT 
1390 GÜSUB 4003 
1100 LET K=K+1 
1113 PRINT 
NURR ? 

1120 INÍ 

1130 IF C$="N“ THEN STOP 
1140 IF C$=“S“ THEN GOTO 755 
1160 GOTO 1123 
1230 STOP 


.c. i r'.=r\ + A 

'R INT RT 21,4;" 

:nput c $ 


QUIERE CÜNTI 



1620 FÜR G = 1 TÜ 15 

1630 PRINT TRB 2;R(G);TAB 3;B(G) 

;TRB 17;C (G) ;TRB 25;D(G) 

1640 NEXT G 
• c 50 RETURN 
50 DIM N(99) 

. 43 FÜR M = 1 Tü 99 

2550 LET H=INT (99+RND)+1 

2563 IF N(H) <>0 THEN GOTO 2553 

2573 LET N(H)=M 

2580 NEXT M 

2593 RETURN 

3000 FRST 

3'05 LET C =J 

3010 LET C=INT (C/2) 

3330 IF 0=1 THEN GOTO 3353 

3043 GOTO 3170 

3053 FÜR P=1 TO C 

3060 FÜR N=P Tü J-C STEP P 

3070 LET Q=N 

3080 LET D=E(N+C) 

3090 IF D >=E (O) THEN GOTO 3130 
3100 LET E (O+C) =E(O) 

3110 LET Q = Q-C 

3123 IF Q>=1 THEN GOTO 3393 

3133 LET E (O+C) =D 

3143 NEXT N 

3150 NEXT P 

3160 GOTO 3010 

3170 RETURN 

3503 FOR G=1 Tü 15 

3510 I‘ F=i THEN LET R(G)=E(G) 

3520 IF F =2 THEN LET BíG) =E(G) 

3530 IF F =3 THEN LET C(G)=E(G) 

3540 IF F =4 THEN LET D(G) =ECG) 

3550 NEXT G 

3560 RETURN 

4030 PRINT 

4020 PRINT "PULSE EL NUMERO 


TON 


(H) - 


GANADOR(É) 


:l cart 

4030 INPUT - A* 

4040 IF R$ < >"1" AND R$<>“2 ! AND 



3" AND A$ < >“4“ 

THEN 

GOTO 40 

eü 

4050 
406 7 
43 ~G 
4080 

Ci 5 

_ iM R í 15) 

FÜR M = 1 Tü 15 
IF A$="1“ THEN 

LET 

R (Mi =R (M 

4090 

IF Rí="2" THEN 

LET 

R (M) =B (M 

4100 

IF R$=“3“ THEN 

LET 

R ÍM) =CÍM 

4110 

IF R$ = “4“ THEN 

LET 

R ÍM) =DÍM 

4120 

NEXT M 
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Continúa BINGO 


4130 LET 5=1 
4.140 FOR M = i Tü 15 

4150 IF RIM=E(5) THEN PRINT ROÍ 
);“ CORRECTO" __ 

4160 IF RÍM¡=EÍ.5) THEN GOTO 4200 
4170 LET 5=5+1 _ 

4180 IF 5 =K +1 THEN GOTO 4220 
4190 GOTO 4150 
4200 NEXT M 

4210 GOTO 4245__ 

4220 PRINT-' 

TP COMPLETO" 

tlll PRINT R IM) ; “ <3B SE HR CRNT 
9D0" 

4240 GOTO 4250 . 

4245 PRINT : E5 CORRECTO FInRl. ’ 
4255 GOTO 1200 
4250 RETURN 
5000 FOR P =2 TO 21 
5005 P 


E5 


5010 NEXT P 

5020 LET LSÍH;=5TR$ N ÍM) 

5030 LET T=CODE L$ iM) (1 TO 1) 
5040 IF LEN L$:M)<2 THEN GOTO 50 
50 

505© LET U=CÜDE L$ ÍM) (2 TO 2) 

5050 FOR 5=0 Tü 7 

5070 LET U=PEEK 17680+8+T+B) 

5050 i_ET y = 128 

5090 FOR X=0 TO 7 

5100 IF U<U THEN GOTO 5150 

5110 PRINT PT 2+5 +5,2 +X + ij CHR$ 1 

0+CHR$ 10 

5120 PRINT PT 2+5+5,2+X+l; CHR* 1 
0+CHR$ 10 
5130 LET U=U-U 
514© GOTO 5170 

5150 PRINT PT 2 +5+5,2 +X +1jCHR $ 1 
28+CHR$ 125 

5150 PRINT PT 2+5+5,2+X+l;CHR$ 1 
28+CHRA 128 


5 ,~ 0 LET U=W/2 
5150 NEXT X 

5190 IF LEN L$(M)<2 THEN GOTO *0 
20 

5200 LET 0=PEEK Í7680+S+U+B) 

5210 LET i.4 = 128 

5220 FOR Y=0 TO 7 

5230 IF O < W THEN GOTO 5280 

5240 PRINT PT 2+5+5,2+Y +15;CHR5 

9+CHR$ 9 

5250 PRINT PT 2+5+5,2+Y+16;CHR? 

9+CHR$ 9 

5250 LET 0=0-U 

5270 GOTO 5000 . 

5280 PRINT PT 2 +5+5,2+Y +1&; CHP.5 
128+CHR* 128 

5290 PRINT PT 2+5+5,2+V+1&;CHR$ 
128 

5000 let y=y /2 

5010 NEXT Y 
5020 NEXT 5 
5040 RETURN 


CAMINO AL OESTE 


Viene de pág. 56 Atari 

48 GRAPHICS 23:X1=0:POKE 555,XI:DL=PEE 

^presione sta 

1+88‘.NEXT X 

K (568)+PEEK(561) *256+4:POKE DL-i,68 

rt":P0KE 788,26 

145 REH READ COLOR DATA 

58 FOR K-Z TO 48:POKE DL+X,112:NEXT X: 

100 IF PEEK (53278)06 THEN 108 

158 READ C$:FOR X=1 TO LEN(C$):POKE 70 

POKE 708,22:POKE 785,X1:P0KE 718,X1:P0 

118 POKE 555,Xi:? "6":PQKE DL-i,68:F0R 

3+X,ASC(C$(X,X)):NEXT X 

KE 711,24 

X-66 TO 78:POKE DL+X,112:NEXT X 

155 REH READ PLAYER DATA 

60 POKE 82,X\;POKE 87,X1:? +CAMIN0 

115 REH SET UP DISPLAY LIST 

168 READ X,Y,Y1:P0KE 53248,X:POKE 5324 

AL OESTE" 

128 FOR K-Z TO 63 STEP 3:PÜKE DL+X,84: 

5,X:P0KE 53258,168‘.POKE 53256,YíPOKE 5 

70 POKE 555,34:F0R Xr40 TO 2 STEP -1:F 

NEXT X:POKE DL+2,128:P0KE DL+24,212‘.P0 

3257,Y:P0KE 53258,Yi 

OR Y-56 TO XI STEP -16:POKE DL+X,Y:NEX 

KE DL+36,212:POKE DL+45,212 

178 Yl^PEEK(106)-48:POKE 54275,Y1:Y1=Y 

T Y:POKE DL+X,7:NEXT X 

138 Yl-PEEK(DL)+PEEK ÍDL+1)*256+80:60SU 

1*256:POKE 53277,2:P0KE 623,2 

88 FOR X-6 TO 8:POKE DL+X,2:NEXT X:? " 

B 1900:Yl-Yl-4 

175 REH HIRROR 

+ ► Una ilusión optica+Qt para ATARI 

888 XL-138 XE+ff*; 

>8 ? 

148 FOR X-4 TO 64 STEP 3:Y=INTCYi/256) 

5P0KE DL+X+1,Y:P0KE DL+X,Yi-Y*256:Y1=Y 

180 READ C$:FOR X=i TO LENCC$):POKE Y1 


W SUSYffiMM 

UNA EMPRESA PARA EMPRESAS 

El buen comprador antes de tomar una decisión pide 
distintos presupuestos. Permítanos darle el nuestro. 

INSUMOS. PC XTAT. MONITORES. HARD DISK. 
IMPRESORAS MANTENIMIENTO Y 
REPARACION DE EQUIPOS. 

SOFTWARE A MEDIDA Y 
PROTECCION DE 
SOFTWARE. 

DESARROLLO DE EQUIPOS 
COMPUTADORIZADOS A PEDIDO PARA 
INDUSTRIA Y ELECTROMEDICINA. 


Calle 115 N 9 2440 San Martín (1650) Tel.: 752-4999/755-7995 - Bs.As. 
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PROGRAMAS 


Continúa CAMINO AL OESTE 


+1197+X, ASC CCS CX, K)) -i: PGKE YÍU448+X, 
ASC(C$(X,K))INEXT X 

158 READ CSlFOR X=i TO LEXCCS):POKE Y1 
+i580+X,ASCCCSCX,X)):MEXT X 
155 REH SUN 

200 READ C$:F0R X=i TO LE*ÍC$)¡POKE Y1 
+I680+X,ASC(C$(X,X)3¡NEXT X 
205 REH INITIALIZE UBI 

218 y^usr cadr chai ccrae 

fTiEhflKKCMLiEi (AV)QHi (■ 

R/OM1/ \0 r*n 


215 REH INIZIALIZE OLI 

228 POKE 512,Xi:POKE 513,6:PONE 54286, 

152:PÜKE 555,63:SOUND XI,60,2,6 

230 POKE 16,112:POKE 53275,112 

240 GOTO 240 

1808 DIH C$ (848),Ci$(108):FQR X=X1 TO 
5:READ Cl$:CS(X#188+i)-Ci$:NEXT X:K=PE 
EK(1063-36:POKE 756,X 
1005 REH HOME CHARACTER SET 

1 810 Y-USR(ADR(»h hn^^TlhTFIIIih^ 

B IIftfrfflg? ii«»M¡iau BSBM fTiTmariiUjr » 


"),ADRÍC$),X*256) 

1028 FOR X=X1 TO 8:READ Ci$:C$ÍX*180+l 
3=C1$:NEXT X 

1025 REH DOUBLE SCREEN DATA 
1030 YrüSR (ADR (“hh.TjhXKTKmjegCj^ 
3ÉÉI*I3EE IEEE IMlTQOiT^i et -l$mú 
aD u 3 f ADRCCS3,Y13:CS=“» 

1035 REH PUT DLI AND UBI 1N PAGE 6 


1048 FOR Y=1 TO 2:READ ClS:CS(LENCCS34 


1)-C1S:NEXT Y:FOR Y=1 TO LENCCS3:POKE 
1535+Y, ASC CCS (Y, Y3 3 .‘NEXT Y:RETURN 
1850 REH CHARACTFO <zi GATA 
1188 DATA 

SEfflraKkkkkkkkkararaaaHíEjuuü 

ag^kímB2k gB«agmiiiia u^ 

1110 DATA ^SMmMMMMk\\y mrwrk \\\\\\\\\ m, 

uuuuura cegr shzufflsaiszBi zxkc oamimu: 
guuuuuu* <4 uuuuu >w f f 

1120 DATA 

Ui f fl ll i <A*lM-0< e-Lff+V <• ¿fff JL(i i < Afff 

?uu^ggi3 

1130 DATA iiHMrHil imillIlllliyiTr n 
IIIIIIXBUUUI^ 3 3 
UUuOUuHUUUUUUUUUUUim^UtfMTlCvvtt 
1140 DATA (T^llB c nilliar iliiiiliHiifinHiiiiii 
UUUUfffff<-«-mck3>6fftf<A<fWfff> B xff 
f fffil]fJ-<< <A( »muiiif < X J n f/^ 8x 
1150 DATA 8A¿**¿mA** 

1160 REH SCREEN DATA 
1170 DATA 


fttf fftff e efffffftffdgggefffftffff 
1180 DATA tdgettttfttftfdggefttttffdg^ 
gggeftdettftc ggg fe ffftfffe ggggefffffc g 
939990 fe gg fffdgggggggfffffdgggggg f 
1150 DATA fffcgggggggggggggecggggggggg 
eftdgggggggggedggggggggggggggggggggggg 
999fcggggggggggggggggggggggggggggg 
1288 DATA 999999999999£9999999iHgggigi 
hgggggggíhggihggggggggghihggggggnnkiMo 


HiiMjnggggionjioRjhigggghHonn jhgggl 
1218 data ooonooooonnjhiloooonooonnkih 
iOOOOOnRJhMOOOOOOOOOOOdOOOOOdOOOOOOOOO 

oooooooooooooooooocooooodQoooooooo 

1220 DATA OOOOOOOOOOOOOO0OOO0OOOOOOOOO 
OOÜEjOOOQOGGOOGOQOOOOGOOOQOGOGOOOCOOOOO 
oooo[üoiIloooooooooooooo(Dooooooooooo 
1230 DATA ooooooooülodMoooooooooooooo 
2Doooooooooooooooooo{IoaQ22ooooGooooooo 
oooSEBOooooooooooooooo gm^ ooooooo 
1240 DATA oooooooooo3?oooooooooooooooo 
ooíSoooooooQooooooooo5E)QSjoooooo fa^¿.-lT 


[rssrC&rsssrrrssrrssrrsssrrsrssrrssl 


1258 data ziimffziifrtmzz fffffi zif 

WtZKHW 

1268 REH DLI AND UBI DATA 
1278 DATA H^HüeüIraÉÜ&jtMjEHBHi^he&^gEl 
*£M BhShefH .legAflii) £ JSVH/ z/üEOE 
z/tE/BWm /aSSMi 

1288 DATA 3 ríTCIDUí/ffi/ÉB^ Z/LbEIEi HE 

ÜÜIEiUf EF gilIB/a. 8B £na<¡ÜHH«l!EnD*-i PC 
SEEdlE) iunaüüSBH 

1298 REH COLOR DATA 
1388 DATA fD.USadGl 1 - 
1118 REH PLAYER DATA 
me DATA 181,3,1 

1338 DATA MilHiniHiniiniir 

niiiimiiiinmiim. \j 

1348 DATA V frH-hH-i-l- 

1358 data ■‘■«tmmiiiiuiiiiimtt «x 


MEMORIA 


Viene de pág. 57 TK-83/85 


1 RRND 

10 DIM N$(1,100) 
20 LET J=1 
30 LET D =0 
100 PRINT RT 0.11: 
1 , 10 ; 

110 PRINT RT 4,4-; ' 
UEL (1-5)?" 

120 INPUT 5 
130 PRINT RT 3,3,' 
RS O RMBÜS?" 

140 LET X=28 
150 LET Y=25 
160 PRU5E 40000 
170 IF INKEY$="L" 
150 IF INKEY$="N" 
130 IF INKEY$="R" 
135 IF INKEY$ < >"L " 


"MEMORIfi";RT 
INGRESE EL NI 

NUMEROS, LETR 


THEN LET *X =38 
THEN LET Y=10 
THEN LET Y=36 
RND INKEY$ <> 


N“ RND INKEY$ <> “R“ THEN GOTO 16 

0 

200 FOR I=J TO (J-l+S*2) 

210 LET N$(1,I)=CHR$ (INT (RND* 

Y+X) ) 

220 NEXT I 
230 CLS 

300 FOR J=1 TO 1-1 
31© LET R=INT (RND*22) 

320 LET B=INT (RND*32) 

33© PRINT RT R,B;N$(1,J) 

340 FOR U=1 TO 12/S 
350 NEXT U 

360 PRINT RT R,B;“ " 

370 NEXT J 

400 PRINT RT 11,4;"INGRESE SU R 
ESPUESTR"" 

41© INPUT C'É 


415 LET rv.=ü-l 

420 IF C$=N$íl,l TO K) THEN GOT 
O 500 

430 PRINT RT 11,4;"INTENTELO OT 
RR UEZ ... 

440 PRUSE 25© 

445 CLS 

450 GOTO 300 

500 LET D =D +(J-l)*K 

505 PRINT RT 11,4;"CORRECTO, SU 

PUNTRUE “;D 

510 PRINT RT 17, S; *'JUEGR OTRR U 
EZ?" 

520 PRUSE 40000 

530 IF INKEY5="5" THEN GOTO 20© 
540 STOP 


MECAPROM NAV5 _ Viene de pág. 58 TI-99/4A 


100 REM SAVE DSK1.NAV5 
110 REH 

120 REH * PROGRAMA QUE ESCRIBE PROGRAMAS DE SALIDA POR ARCHIVO DE IMPRESORA * 

138 REH 

140 REM AUTOR: RODOLFO EDUARDO NAVE 
150 REH NOMBRE:HECAPR0H-NAV5 

160 REH i H *f W «t*** H it»»* lilHiHlllH i HiH < «H i«iti«» H » «ll »» H »» » » H »W 

178 CALL CLEAR :¡ CALL SCREEN(21ii FOR RUX=8 TO 14 :i CALL C0L0R(AUX,3,2)i! ICXT 
AUX :: ON HARNItS NEXT :: AU1=-1 

180 AMXI="**«» KECAPR0M-NAV5 mm* ti DISPLAY AT(1,1):AMX* 

198 AU4** * ti AUI*="MIENTRAS ÜD. UTILIZO LA CONSOLA 

E IMPRESORA COHO SI FUERA UNA MAQUINA DE ESCRIBIR:" 

288 AU2*=*:.«-» SE CREA AUTOMATICPNCNTE UN PROGRANA PARA SALIDA 

DE INPRESORA DE LO QUE UD. ESCRIBIO" ü AU4=AU4ÍAU14JAU24 

218 AU14=" <««(»»)» EN FORMATE NERSE" n SOSUB 328 

228 AU14*"ATENCI0N!!i AL COMENZAR EL PR06RAMA O AL BORRAR, LA PANTALLA QUEDARA N 

ESRA Y SIN EL CURSOR. ESO ES PARA DAR LUGAR A USAR LAS FUNC’ 

238 AU2>*"IONES O SI NO PULSE CUALQUIER TECLA «NOS ENTER Y APARECERA EL" ü AU4 
«AU4MU1HAU24 ¡i AU14*" CURSOR PARA COMENZAR A ESCRIBIR..." :i SOSUB 328 
248 AU14*"PARA IMPRIMIR DEJE PULSADO ENTER Y ESPERE»»» MUY IMPORTANTE: CU 

AM» a CURSOR LLEGE AL FINAL DE LA PANTALLA SE TR" 

258 AU28>'ABARA, PERO SI ND SE TOTALIZO CON a ANCHO DE HOJA NO IMPRIMIRA PARA Q 
UE FINALICE LA FRASE" 


2S8 PU**AU*tAUlUAU2$ n AJ1$*“ :: AUl=-6 :: GOSUB 328 

278 AUI*=’AL TOTALIZAR a ANCHO DE HOJA, a CURSOR SE TRABARA ESTE DONDE ESTE. P 

ARA QUE UD. aiJA: IMPRIMIR, BORRAR O USAR OTRAS FUCIOtES" 

288 GOSUB 328 :: AU2t°" »»»»» EN DEFINITIVA, CADA VEZ QUE PULSA ENTER; DES 
APARESE a CURSOR LO QUE INDICA QUE UD.PUEDE: IMPRIMIR O USAR LAS FUNCIONES* 

298 AU4‘=AUttAU2t i: AU1*=" SI TIENE UNA IMPRESORA CON CARACTERES GRAFICOS PREDE 
FINIDOS PRUEBE FCTN Y CUALQUIER LETRA" :: AU1=-1 :: GOSUB 328 
388 AU14>" Y PODRA HACER LINEAS BRAFICADAS DE DISTINTAS TRAMAS" 

318 SOSUB 328 i: SOTO 358 

328 AUNAU8IAU1* n FOR AtH TO LEN(RUN):: DISPLAY AT(18,1):SEB»(AU8,AU,28):: DI 
SPLAY AT(24,6); "saltea (si=tecla)" :: CALI KEY(8,K,S) 

338 IF S)8 THEN 358 

348 DISPLAY AT(24,1):"" :t ItXT AU :: AU»=" * :: CALL 

S0UM>(-58,RND»1388»388,8):i RETURN 

358 CALL CLEAR :: DISPLAY AT(18,1):‘INBRESE NOMBRE Da PROGRAMA:’ :: ACCEPT ATI2 
8,7)SIZE(-18)BEEP:fEC* i: IF L£N(MBCU=8 T1EN 358 aSE CALL CLEAR 
368 OPEN #1:"DSR1."IMEC8,VARIABLE 1G3 u U=8 :: U1*I 

378 DEF 1214*08)8(158)(CHRt(253)XCHRt(288)lCHR$ü)(*rtCHR$(181):: DEF Z224*CHR$ 
(214)4CHR4(183)ICHR4(288):: DEF SER4=CHR4(182> 

388 DEF Z234CHR4(252)tCHR4(183)(CHR4(288) 

398 DEF Z244*CHR4(188) ICHR4(253) tCHR$(288)tCHR$ü)("rtCHR4(8):: DEF Z384*CHR4(1 
3k(CHR8(8) 

488 LI>8 ii LI1*18 li CG4*CHR4(LI)4CHR4(LI1)(CHR$( 159)KHR4(253)(CHRP(288)XCHR4( 
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PROGRAMAS 


Continúa MECAPROM NAV5 


i) t" r tCHRI (181} 4CHR$ (199) 4CHR$ (26) 4"RS232. BA= 1200. Pft=€. Dfi=fl. TW U 

410 AU$=CHR$(179)4CHR$(243)4CHR$(200)4CHR$(3)4"200"4CHR$(0) :¡ CG$=CGS4AU$ :: PRI 

NT #1¡CGI :: TAM=1 

421 DISPLAY ATÜ,1):AMX$ í: DISPLAY AT(3,1):"FCTN E: para ESPACIOS” :: DISPLAY A 
T(5,l)s-FCTN ERRASE: para BORRAR” 

430 DISPLAY AT(7,1):"FCTN REDO:P/instrucciones B :: DISPLAY AT(9,1):"FCTN S¡ letr 
as grandes" ¡: DISPLAY AT(10,1)¡"FCTN N: letras medianas" 

440 DISPLAY AT(11,1):"FCTN C: letras conur.es" :: DISPLAY AT(12,1):"FCTN I: letra 
s chicas" :: DISPLAY AT(14,1)¡*FCTN Ts para TABULAR” 

450 DISPLAY AT(15,1):"FCTN P:T#»ULAR PERMANENTE" :: DISPLAY AT(17,i) :"FCTN A: an 
cho de la hoja” :: DISPLAY AT(19,5)¡”P R E C A U C I O N" 

460 DISPLAY AT(16,1):"FCTN 0 PARA FINALIZAR !!!" 

471 DISPLAY AT(21,1):"SIEMPRE:ponga 1ro el ancho de la hoja LUEGO el tamaño de 1 
a letra y DESPUES el tab" 

480 DISPLAY AT (24,1): "PULSE FUNCION 3 PARA EMPEZAR" 

490 AN=75 :: ANIDAN :: AN2=AN 

500 U4 :: GOSUB 600 :í SOSUB 600 ¡: ACCEPT AT(17,1)SIZE(AN):A$ :: A=LEN(A$):: A 
N=AN-A u IHJ+A :: SOSUB 1150 :: GOSUB 600 :: GOSUB 550 :: ACCEPT AT(lfl,DSIZEÍA 
N):BI :: GOSUB 600 :: SOSUB 550 :: GOSLS 870 :: A=LEN(B$):: AN=AN-A :: U=U+ñ :: 
GOSUB 1150 :: GOSUB 600 :: GOSUB 550 

510 ACCEPT AT(19,l)SIZE(AN):C$ :: GOSUB 600 :: GOSUB 550 :: GOSUB S80 :: A=LEN(C 
$)¡: AN=flN-A :: U=U*A :: GOSUB 1150 :: GOSUB 600 :: GOSUB 550 ACCEPT AT(20,1) 
SIZE(AN):D$ :: GOSUB 600 :: GOSUB 550 :: GOSUB 890 :: A=LEN(D$):: AN=AN-A ¡¡ IMi 
♦A n GOSUB 1150 

520 GOSUB 600 :: GOSUB 550 :: ACCEPT AT(2l,l)SIZE(AN):E$ :: GOSUB 600 :: GOSUB 5 
50 :: GOSUB 900 :: A*LEN(E$):: AN=AN-A :: IMHA :: GOSUB 1150 :: GOSUB 600 :: 60 
SUB 550 :: ACCEPT AT(22,l)SÍZE(AN):Hf :: GOSUB 600 :: GOSUB 550 :: GOSUB 910 :: 
A=LEN(H4):: AN=AN-A :: ü=U+fi 

531 GOSUB 1150 :: GOSUB 600 :: GOSUB 550 :: ACCEPT AT(23,l)SIZE(W):H1$ :: GOSUB 
600 :: GOSUB 550 :: GOSUB 920 ¡: (KEN(KIÍ):: AN=AN-A :: IMJ+A :: GOSUB 1150 :: 
SOSUB 600 :: GOSUB 550 :: ACCEPT AT(24, i)SIZE(AN) :H2$ :: GOSUB 600 :: GOSUB 550 
:: GOSUB 930 :: A=LEN(H2$) 

531 AN=AN-A :: IHJ+A :: GOSUB 1150 :: GOSUB 600 :: GOSUB 550 

540 GOTO 750 

550 GOSUB 600 

560 IF P=1 THEN 750 

570 IF AN=0 THEN 750 

500 IF AN(28 THEN M 

590 RETURN 

600 CALL KEY(0,K,S) 

610 IF S=€ THEN 600 

620 IF K=188 THEN SEM=1 :: GOSUB 750 :: GOTO 1440 
630 IF K THEN DISPLAY AT(1,1):AHX$ 

640 IF K=125 THEN DISPLAY AT(3,1):"LETRAS GRAhDES" :: SEN=1 :: X=1 :: GOSUB 750 
:: PRINT I2:CHR$(38) ;CHR$(31):: CLOSE #2 :: SOSUB 1330 :: GOSUB 1000 :: TAM=2 :: 
GOSUB 1510 :: GOTO 500 

650 IF K-195 THEN DISPLAY AT(3,1):"LETRAS MEDIANAS" :: SEH»1 :: X=1 :: GOSUB 750 
:: PRINT #2:CHR$(29);CHR$(31);:: CLOSE #2 :: SOSUB 1340 :: GOSUB 1100 ¡: TM=4 
:: SOSUB 1511 :: GOTO 500 

660 IF K=96 THEN DISPLAY AT(3,1).-"LETRAS COMUCS" :: SEM=1 :: X=1 :: GOSUB 750 : 
: PRINT I2:CHR$(30);:¡ CLOSE 12 :: SOSUB 1350 :: GOSUB 950 :: TAM=1 :: GOSUB 151 
I :: GOTO 500 

670 IF K=63 THEN DISPLAY AT(3,1):"LETRAS CHICAS" :: SE*=! :: X=1 :: GOSUB 750 :: 
PRINT #2:CHR$(29)CLOSE #2 ::tGOSUB 1360 :: GOSUB 1050 ¡: TAM=3 :: GOSUB 151 
0 :: GOTO 500 

681 IF K=7 THEN AN=AN1 :: CALL CLEAR :: GOTO 850 
690 IF K=6 THEN AN=AN1 :: CALL CLEAR :: JJ=1 :: GOTO 850 
701 IF K=93 THEN DISPLAY AT(1,5):"A DONDE TABULA?: 11 :: ACCEPT AT(1,20)BEEP:TA ¡¡ 
TAP,TAPP=0 :: IF TA>0 THEN GOSUB 1280 :: AN=AN1 :: AN=AN-TA :: DISPLAY AT(4,1): 
" :: GOTO 500 ELSE AN=AN1 :: DISPLAY AT(4,1):” 

710 IF K s 34 THEN DISPLAY AT(4,1):"DONDE TABULA PERMANENTE?:" :: ACCEPT AT(4,25)B 
EEP:TAP TAPHTAP :: IF TAP)0 THEN GOSUB 1230 :: TA=0 :: AN=AN1 :: AN=AN-TAP : 
: GOTO 500 ELSE AN=AN1 

720 IF K=ll THEN DISPLAY AT(5,1):"ESPACIO ENTRE RENGLONES:ES :: ACCEPT AT(5,25 
)BEEP:ES :: GOTO 580 

730 IF K=124 TON DISPLAY AT(6,1):"ANCHO DE LA HOJA?" :: ACCEPT AT(6,18):M :: 6 
QSUB 1160 :: AN1=AN :: AN2=AN :: GOTO 500 
740 RETURN 

751 OPEN #2:"RS232.BA=1200. PA=E.DA=8. TW",VARIABLE flNl 
760 IF SEM=1 THEN SEM=0 :: RETURN 

771 IF SEM=2 THEN SEM=8 :: PRINT 12 :: GOSUB 1370 :: GOTO 810 
780 IF TAP)0 im PRINT I2:TAB(TAP) ?A$;B$;C$jD$ 5 E$;H$ 5 H1$;H2$ :: GOSUB 1380 
790 IF TA>0 THEN PRINT #2:TAB(TA),-A$;B$;C$;D$;E$;H$;H1$;H2$ :: GOSUB 1400 
001 IF (TAA=0)*(TA=0)THEN PRINT «2:A$;B$;C*;D*;£$;HI;H1$;H2$ :: GOSUB 1420 
810 IF ES=0 THEN 838 

020 FOR AUX=8 TO ES :: PRINT 12 :: GOSUB 1438 :: NEXT AUX :: 

838 CLOSE «2 
B4« DISPLAY AT(17,1) 

850 TA=0 :: AN=AN1 ¡: AN=AN-TAP :: P=0 :: A$,B$,C$,D*="" 

060 E$,HI,H1$,H2$="" :: IF JJ=1 THEN JJ=0 :: GOTO 420 ELSE GOTO 500 
870 IF B*="" TJCN 750 ELSE SOSUB 1150 :: RETURN 


888 IF C*=“" THEN 750 ELSE SOSUB 1158 :: RETURN 

898 IF D$="* THEN 750 &SE GOSUB 1150 :: RETURN 

900 IF Etf" THEN 750 ELSE SOSUB 1150 :: RETURN 

910 IF H0¿" THEN 750 aSE GOSUB 1150 :: RETURN 

928 IF Hl$="" TJ€N 758 ELSE GOSUB 1150 :: RETURN 
938 IF H2$="“ THEN 750 aSE GOSUB 1150 :: RETURN 
940 RETURN 

950 IF TAM=1 THEN RETURN 

968 IF TAM=2 TJ€N AU=AN1*2 :: W1=AU :: M*AN1 

970 IF TAM=3 TJ€N AU=INT(AN1/1.66)+1 :: AN1=AU :: AN=M1 

988 IF TAM=4 TJ£N-AOAN1+2 :: ANI=AU :: AN*AN1 

990 RETURN 

1000 IF TAM=2 THEN RETURN 

1010 IF TAM=1 THEN AU=ANl/2 :: AN1=AU :: AN=AN1 

1020 IF TAM=3 THEN AU=INT((ANl/i.66)/2)+l :: AN1=AU ¡: AHNW1 

1830 IF TAM=4 THEN AU=INT(AN1/1.66)+1 :: AN1=AU :: AN=AN1 

1040 RETURN 

1050 IF TAM=3 THEN RETURN 

1060 IF TAM=1 THEN AU=INT(AN1*1.66):: ÍN1=AU :: AIHW1 
1070 IF TAM=2 THEN AU=INT((AN1*1.66)*2):: AN1=AU :: AN=AN1 
1080 IF TAM=4 TJ£N AU=INT(AN1*2):: AN1=AU :: ÍN=AN1 
1090 RETURN 

1100 IF TAN=4 THEN RETURN 

1110 IF TAM=1 THEN AU=ANl-2 :: AN1=AU :: AN=#N1 

1120 IF TAM=2 THEN AU=INT(ANltl,66):: ANi=AU :: AN=AN1 

1130 IF TAM=3 THEN AU=ANl/2 :: AN1=AU :: AN=AN1 

1140 RETURN 

1150 DISPLAY AT(9,5):"ESPACIOS+L£TRAS=";U :: DISPLAY AT(10,5):"total disponible= 
”?AN :: DISPLAY AT(11,5):"ancho hoja real:";ANl :: 

1160 IF (TAM=1)*(AN)131)THEN JJJ=131 :: GOTO 1170 aSE GOTO 1190 
1170 DISPLAY AT(6,18):"MUY GRANDE" 

1180 FOR AUX=1 TO 200 :: NEXT AUX :: DISPLAY AT(6,18):JJJ :: FOR AUX=1 TO 200 :: 
NEXT AUX :: GOTO 730 

1190 IF (TAM=2)*(AN)65)THEN JJJ=65 :: GOTO 1170 
1200 IF (TAM=3)*(AN)216)THEN JJJ=216 :: GOTO 1170 
1210 IF (TAM=4)*(AN)106)THEN JJJ=106 :: GOTO 1170 
1220 RETURN 

1230 IF TAM=1 THEN RETURN 

1240 IF TAM=2 THEN TAP=INT(TAP/1.66)-1 

1250 IF TAM=3 TJ£N TAP=INT(TAP*1.66) 

1260 IF TAM=4 THEN TAP=TAP-2 
1270 RETURN 

1280 IF TAM=1 THEN RETURN 

1290 IF TAM=2 THEN TA=INT(TA/1.66)-1 

1308 IF TAM=3 THEN TA=INT(TA*1.66) 

1310 IF TAM=4 THEN TA=TA-2 
1328 RETURN 

1330 GOSUB 1490 :: CG$=CG$4Z21$4Z22$4CHR$(2>4"30 H tSER$tCHR$(188)tZ22$4CHRÍ(2)t"3 
1"4SER$4CHR$(0)¡: PRINT #1:CG$ :: RETURN 

1340 SOSUB 1490 :: CG4=C8$4Z21$4Z22nCHR$(2)4"29 ,, 4SER$«CHR$(180)tZ22$tCHR$(2)t n 3 
1"4SER$4CHR$(0):: PRINT #1:CG$ :: RETURN 

1350 GOSUB 1490 :: CG$=CG$4Z21$4Z22*4CHR$(2)4"30"4SER$OR$(0):: PRINT il:CG$ :: 
RETURN 

1360 SOSUB 1498 :: CGÍ=CG$«21$4Z22$«:HR$(2)4"29"»SER$4CHR$(0):: PRINT #1:CG$ :: 
RETURN 

1370 GOSUB 1498 :: CGf=CG$4Z21$4CHR$(0)¡: PRINT #1:CG$ :: RETURN 

1380 VR$=STR$(TAP):: GOSUB 1490 :: CG$=C6$4Z21$4Z23$ :: AU=LEN(VR$):: CG$=CG$tCH 

R$(AU)*VR$JSER$4CHR$(180)1CHR$(199) 

1390 AU$=A$4B$tC$tD$4E$tH$4Hl$4H2$ :: AOLEN(AU$):: CG$=C6$4CHR$(AU)4AU$4CHR$(0) 
:: PRINT #1:CG$ :: RETURN 

1480 VR$=STR$(TA):: GOSUB 1490 :: CG$=CG«Z21$tZ23$ :: AU=LEN(VR$):: CG$=CG$4CHR 
$(AU)íVR$4SER$4CHR$(180)4CHR$(199) 

1410 AU$=A$4B«CSíD$4E$tH$8HlStH2$ :: AU=LEN(AU$):: CG$=CG$4CHR$(AU)SAU$tCHR$(0) 
:: PRINT #1:CG$ :: RETURN 

1420 SOSUB 1490 :: CG$=CG$4Z21«CHR$(199):: AU$=A$4B$4C$m4E$4H$4Hl$*H2S :: AU= 
L£N(AU$):: CG$=CG$4CHR$(AU)4AU$4CHR$(0):: PRINT #1:CG$ :: RETURN 
1430 GOSUB 1490 :: CS$=CGUZ21$4CHR$(0):: PRINT #1:C6$ :: RETURN 
1440 GOSUB 1490 :: CG$=CG$4Z24$ :: PRINT #1:CG$ ¡: GOSUB 1490 :: CG$=CG$4Z30$ :: 
PRINT #1:CG$ :: CG$=CHR$(255)4CHR$(255):: PRINT #1:CG$ :: aOSE #1 :: aOSE #2 
1450 CALL CLEAR :: DISPLAY AT(11,1):”TIPEE NEW, LUEGO MERGE DSK1.NOMBRE Da PROG 
RAMA":"Y GRABaO DE NUEVO PERO EN" :: DISPLAY AT(14,1):"FORMA NORMAL" 

1460 FOR AU=0 TO 38 :: FOR AUX=1000 TO 200 STEP -208 :: CALL SOUND(-10,AUX,AU):: 
NEXT AUX :: NEXT AU. 

1470 CALL aEAR :: PRINT "fin del proceso": :"no olvide NEW": :"MERGE DSK1.N0MBR 
E" :: STOP 
1480 GOTO 1470 

1490 LI1=LI1+10 :: IF LI1)=250 THEN XXX=XXX+4 :¡ LI1=XXX :: LI=LI+1 
1500 CG$=CHR$(LI)4CHR$(LI1):: RETURN 

1510 IF TAP>0 MN TAP=TAPP :: GOSUB 1230 :: TA=0 :: AN=AN1 :: AN=AN-TAP 
1520 RETURN 
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PARA COMUNICARSE 



Para mejorar nuestro servicio, a ios telé¬ 
fonos de Editorial Proedi hemos incorpo¬ 
rado el sistema de Radio Llamada. Pue¬ 
den marcan 

311 -0056 y 312-6383 (cadena de 19 lí¬ 
neas), mencionando el 

Código 5941 

y de esa forma podrán dejar el mensaje, 
que será transmitido de inmediato a nues¬ 
tras oficinas. Contestaremos a la breve¬ 
dad (por la vía que corresponda) todas las 
llamadas. 


n 










































PKOÍÍKAMAS 


Continúa FICHERO DE TARJETAS 



STOCLI 


Viene de pág. 62 MSX 


10 CLS:CLEAR(1100 >:HAD=0s MAD=0:SA 
D=OsCOLOR 2.1,3: FOR T=1T010:KEYT, 

""« NEXT T-.MAXFILES=6:DIMA$<42>:ON 
-.ERROR GOTO 5340 
20 GOTO 4510 
30 N=895 

40 OREN"DATOS.DAT”AS#1LEN=39 
50 FIELD #1,21 AS N$,6 AS S$,6 AS 
E$,6 AS Ct 

60 OREN"VENDIDO" AS #3 LEN=24 
70 FIELD#3,4ASP1$,5ASP6$,15ASNX* 
80 OREN"VENTA"AS#2LEN=51 
90 FIELD #2,6 AS P2$,6 AS UL$,6AS 
DIC$,6ASMC*,6ASAC*,6ASNC*,6ASI Ct , 
9A8BNÍ:OREN"VARIOS"AS #4:FIELD #4 
, 15AS DC-S.6 AS CR# , 6ASPE$,6AS P3$ 
:OREN"CHEQUES" A3#5 LEN=56:FIELD 
#5.6 AS MI ■£, 6AS DP$,6 AS CN$,6 AS 
P7$ ,6AS AN*,6 ASDA$,6 ASJL^,6ASI 
R$,6ASSRÍ 

100 COLOR 15,1,14:OREN"VENTAS" AS 
6# LEN=162 

110 FIELD #6,15 AS NP*,6 AS DR$,9 
AS FF'Í,6 AS HS,6 AS KIS, 13 AS NT 
$,13 AS 2D$,S AS AW$,6 AS UY$,6 A 
S LP$,10 AS DR*,6 AS CC$,6 AS PC$ 
:COLOR 2,1,3 

120 G*=INPUT*(1)s G=VAL< G$ >:IF G=1 
THEN SCREEM OsGOSUB 2930:GOTO 15 


O 

130 IF 6=2 THEN SCREEN O:GOTO 330 
O ELSE 140 

140 IF 6=3 THEN 1460 ELSE 120 
150 0E=0:PE=0:QW=0:FLAG=0:YT=0:IN 
G=0:CLS 

160 L0CATE2,0:PRINT"... MENU DE ST 
OCK...LOCATEO,2:PRINT"INICIAR A 
RCHIVOS-1":LQCATE21,2:PRINT"INGRE 
SAR STOCK—2“ : LOCATEO,4:PRINT " MODI 
FICAR STOCK—3":LÜCATE21,4:RRINT" 

VENTAS-4 “ : LOCATEO, 6: PR I NT 

"MOSTRAR ART.-5":LOCATE21,6: P 

RINT"LIST. 0RDENAD0-6" 

170 LOCATEO,8:PRINT"FINAL DE TRAB 
AJO— 7" : L0CATE21,8: F*RINT"VENTAS/TQ 
TAL ES-8":LOCATEO,10:PR1NT"HISIOGR 


AMA-9 " : LOCA I E21,1O:PRIN1“VA 

RI OS-A" : LOCATEO, i 2: PR I NT n 


INEXISTENCIAS-B" 

180 L.0CATE21,12: PRI NT" REPONER STO 
CK—C":LOCATEO,i4:PRINT“ACEPTAR C 
HEQUES—D":L0CATE21,14:PRINT"AVER 
. CHEQUES—E":LOCATEO,16:PRINT"ME 

NU PRINCIPAL-F":LOCATE21,16:PRI 

NT " CLI ENTES-G" : L0CATE2,22: P 

RINT"SU OPCION:(1-9)-(A-G)5 
190 G$=INPUT$ < 1) :BEEP: IF G$= ,, A" T 
HEN 2490 


200 IF G$="B"THEN2690 
210 IF G$="C"THEN227O 
220 IF G$="D"THEN2770 
230 IF G$="E"THEN1570 
240 IF G$="F"THEN5370 
250 IF G$="G"THEN3300 
260 G=VAL<G$> 

270 ON G GOTO 290,520,630,810,113 
0,1310,1460,1840,2090 
280 GOTO 190 

290 CLS: PRI NT"-1 NI CI AL 1 ZACIO 

N DE ARCHIVOS-” 

300 PRINT:INPUT“ESTA SEGURO<S/N) : 
"; SN$ 

310 IF SN$="S" THEN 320 ELSE 150 
320 FOR T=1 TO 12:LSET P3*=MKS$<0 
>:PUT #4,T:NEXT T 

330 FOR T=1 Tü 360:LSET DIE*«”“lL 
SET CR*=MKS$ <0> :LSET PE$=MKS$tO> : 
LSET DC$="":PUT #4.T:NEXT T 
340 FOR 1=1 TU 12:LSET P2$=MKS$<0 
!):PUT #2,1:NEXT 1 

350 FOR T=36i TO 374:LSET P3$=MKS 
$<0>:PUT #4,T:NEXT T 
360 FOR 1=1 TO N 

370 LSET N$="":LSET D$="":LSET S$ 
=MKS$ <0>:LSET C$=MKS$(O):LSET E*= 
MKS$<0> 

380 PUT #1,1 
390 NEXT I 
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PROGRAMAS 


Continúa STOCLI 


400 FOR 1=1 TO N 
410 LSET PÜ=MKSÍ(0) 

420 PUT #3,1 
430 NEXT I 

440 FDR,T=1 TO N:LSET P 6 Í=MKSÍ<1) 

• LSET Pü=MKSÍ (O) : LSET NXÍ="":PUT 
#3,TsNEXT T 

450 FOR Y=1 TO N:LSET DPÍ="":LSET 
CNÍ=MKSÍ(0):LSET MIÍ=MKSÍ(0):LSE 
T AN*=MKSÍ(O):LSET DAÍ=MKSÍ <0)s LS 
ET SRÍ=MKSÍ(0):LSET JLÍ=MKSÍ(O)sL 
SET IRÍ=MKSÍ(0):PUT #5,Y:NEXT Y 
460 LSET P7i=MKSÍ(O)sPUT #5,700 
470 LSET ULÍ=MKSÍ(0)sPUT #2,1 
4S0 FOR T=1 TO N:LSET DCÍ=MKSÍ(0> 

:LSET ACÍ=MKSÍ(O):LSET MCÍ=MKSÍ(0 
) : LSET I Ci=MKSÍ (O) s LSET NCÍ= " " s LS 
ET BNi="":PUT # 2 ,T;NEXT T 
490 CLS:PRINT"ARCHIVOS INICIALIZA 
DOS" 

500 LSET PÜ=MKSÍ(0):PUT #3,1001 
510 FOR T=1 TO 890:NEXT T:CLS:GOT 
O 160 

520 CLS SPRINT"-ALTA DE DATO 

S-" 

530 GET #3,1001:IF CVS(PÜ>=895 T 
HEN 4940 

540 PRINT"SU CODIGO : " ; CVS (Pli) -*-l 
550 FOR T—1 TO 550;NEXT TsGOSUB 7 
40 

560 C0D=CVS(P1Í)+1 

570 PUT #1,COD 

580 LSET Pü=MKSÍ(COD) 

590 PUT #3,1001 

600 PRINT:PRINT"ALGO MAS(S/N):" 5 : 
INPUT NFi 

610 IF NFÍ="S" THEN 530 ELSE 620 
620 GOTO 1120 

630 CLS: PRINT"-MODIFICACION 

DE DATOS-" 

640 PRINT:INPUT"CODIGO:";COD:IF C 
0D=0 THEN 640 
650 GET #1,COD 

660 PRINTSPRINT"LOS DATOS SON:" 
670 GOSUB 1220 

680 PRINT:INPUT"LOS MODIFICA<S/N) 

:"5 SNi 

690 IF SNÍ="S" THEN 700 ELSE GOTO 
150 

700 GOTO 1480 

710 LSET NÍ=NOÍ:LSET Si=MKSÍ(S):L 
SET EÍ=MKSÍ <ED):LSET CÍ=MKSÍ(CAN) 
720 PUT #1,COD 
730 CLS:GOTO 160 

740 CLS SPRINT"-INGRESO DE 

DATOS- 

750 PRINT:INPUT"DETALLE:";NOi:IF 
LEN (NOi)>21 THEN 750 
760 INPUT"CANTIDAD: " ; DI7. 

770 INPUT"COSTO: "; ED 

780 INPUT"VENTA:";S 

790 LSET Ni=NOi:LSET EÍ=MKSÍ(ED): 

LSET SÍ=MKSÍ(S) : LSET CÍ=MKSi(DI%) 

800 RETURN 

810 CLS: PRINT"-VENTAS 


820 BET #5,700:J=CVS(P7i>+1:IF J> 
=895 THEN 5110 ELSE GET #6,520:1= 
CVS (Kli)+1:IF I>=155 THEN 4530ELS 
EPRINT:INPUT"CODIGü:";COD:IF CQD< 
**0 0RC0D>895THEN 820 
830 GET #1,COD:PRINT"DICHO ARTICU 
LO CONTIENE ESTO:":PRINT 
840 GOSUB 1220 

850 PRINT:INPUT'LO COMPRA(S/N):"; 
SNi 

860 IF SNÍ="S" THEN 870 ELSE 150 
870 FG=CVS(CÍ) 

880 INPUT"CANTIDAD DE COMPRA:";CT 
890 LSET CNÍ=MKSÍ <CT):LSET DPÍ=MK 
Si( COD):PUT #5. J :LSET P7i=MKSÍ < J > 
:PUT #5,700:F=FG-CT:IF F<0 í HEN G 
OTO 1740 

900 IF F=0 THEN 910 ELSE 930 
910 FLAG=1:QW=CVS(SÍ> 

920 IF MI=—1 THEN 1010 


930 GET #1,COD 

940 IF FLAG=1 THEN 950 ELSE QW=CV 
S(SÍ) 

950 DE=FG-CT 

960 LSET CÍ=MKSÍ<DE) 

970 PUT #1,COD 

980 INPUT"FECHA D/M/A:";D,M,A:Z=M 
:IF M=0 0RM>Í2 THEN 980 ELSE GET # 
6,520:X=CVS(KIÍ>+1 

990 INPUT"CODIGÜ DE USUARIü:";CAD 
: GET #6 , CAD: L=CVS < U Yi) + <QW*CT> : LS 
ET UYÍ=MKSÍ <L) : PUT #6,CAD: LSET KI 
Í=MKSÍ(X):PUT #6,520 
1000 VSI=QW:VEL=CT*VSI:GET #2,M:P 
=CVS(P2i):XC=P+VEL:LSET P2Í=MK5Í( 
XC):PUT #2 ,M:GET #5,700:J=CVS(P7i 
):LSET DAÍ=MKSÍ <D>:LSE1 ANÍ=MKSÍ( 
A):LSET MIi=MKSi < Z >:PUT #5,J:IF F 
LA6=1 THEN 1010 ELSE FLAG=0:GOSUB 
3030:GOTO 1110 
1010 GET #3,1 

1020 PTFIS=CVS < P1i>:PTFIN=PTFIS+1 
:FOR T=1 TO 400:NEXT T 
1030 IF PTFIN=895 THEN 4790 
1040 LSET Pli=MKSÍ(PTFIN> 

1050 PUT #3,1:GET #3,1 
1060 LSET PÜ=MKSÍ<COD) 

1070 PUT #3,PTFIN+1 
1080 M=1:LSET P6Í=MKSÍ(M):GET #1, 
COD:LSET NXÍ=NÍ:PUT #3,PTFIN+1 
1090 IF MI=—1THEN M1=0:GOTO 2660 
1100 GOSUB 3030 

1110 PRINT:INPUT"ALGO MAS(S/N):"; 
SNisIF SNÍ="S" THEN 810 ELSE 150 
1120 CLS:GOTO 160 

1130 CLS:PRINT"-MUESTRA DE DAT 

O-“ 

1140 PRINT:INPUT"CODIGO:";COD:IF 
COD< =0 OR COD>895 THENPRINT:PRINT 
"ARTICULO NO REGISTRADO:":GOTO 11 

40 

1150 GET #1,COD 
1160 PRINT"DESCRIPCION:";Ni 
1170 PRINT"CANTIDAD:";:IF CVS(CÍ) 
<=0 THEN PRINT" **INEXISTENTE** " 
ELSE PRINT CVS(CÍ) 

1180 PRINT"COSTO:";CVS (Ei) 

1190 PRINT"VENTA:";CVS(SÍ>:PRINT" 
TOTAL EN COSTO:";CVS(Ei)*CVS < Ci): 
PRINT:PRINT"PULSE UNA TECLh 
1200 IF INKEYÍ="" THEN 1200 ELSE 
150 

1210 GOTO 2200 

1220 PRINT:PRINT"DETALLE:";Ni 
1230 PRINT"CANTIDAD:";CVS < Ci) 

1240 PRINT"VENTA:";CVS(Si) 

1250 F*R I NT " COSTO: " ; CVS < Ei) 

1260 PRINT:RETURN 

1270 PRINT:INPUT"DESCRIPCION:";NO 

i 

1280 INPUT"VENTAí"5ED 
1290 INPUT"CANTIDAD:";CAN 
1300 GOTO 710 

1310 CLS: PRINT"-LISTADO ALFA 

BETICO- 

1320 INPUT"BLOQUE(1-25):";BLO:IF 
BLO >250RBL0<-OTHEN1320EL3E DESDE= 
IN F<BL0*35.9)-35:HASTA=INT ( DESDE+ 
35.9)-2 ’ 

1330 T=35 

1340 ZX=0:ZA=0:FOR I=DESDE+1 TO H 
ASTA:GET #1,1:ZA=ZA+Í:Aí(ZA)=N$:N 
EXT I 

1350 FÜR 1=1 10 T 

1360 FOR J=I+1 10 T 

1370 IF At(IXA$(J) THEN 1390 

1380 SWAP Aí(i),Ai\J) 

1390 NEXÍ J 

1400 NEXT 1: 1F ÜE=1 i'HKN ÜE=0:G0T 
Ü 4460 

1410 FÜR1=110 í+l:lFAi \J> =SPAuEi K 
21)THEN NEXTlELSE PRINThí< 1):ZX=Z 
X + l:IF ZX =12 THEN 1440 ELSE NEXT 
I 

1420 PRINT:PRINT"PULSE UNA IELLA 
PARA CONTINUAR 1 ' 


1430 F0RJ=1T0T+1:Ai<J):NEXT:IF 
INKEYÍ=""THEN 1430ELSE150 
i440 PRINT :PRINT"PULSE UNA 1 ELLA’* 
1450 IF INKEYÍ="" THEN 1450 ELSEC 
LS:ZX=0:NEXT I 


1460 CLOSE #1,#2.#3,#4,#5,#6 
1470 END 

1480 PR INT:INPUT" MüD. DESCR I PC IÜN 
: <S/N):":VNi<1) 

1490 PRINT:INPUT"MOD. COSTO:(S/N) 


:";VNi(2) 

1500 PRINT:INPUT"MOD. VENTA:(S/N) 
: ";VNi(3) 

1510 PRINT:INPUT"MOD. CANTIDAD:(S 
/N) : **; VNi (4) 


1520 IF VNi (1)="S" THEN PRINT : INF’ 
UT"DESCRIPCION:";NOi ELSE IFLEN(N 
OÍ)>21THEN 1520 ELSE NOÍ=NÍ 
1530 IF VNi(2)="S" THEN PRINT:INP 
UT"COSTO:";ED ELSE ED=CVS(Ei) 

1540 IF VNi(3)="S" THEN PRINT:INP 
UT"VENTA:";S ELSE S=CVS(SÍ) 

1550 IF VNi(4)="S" THEN PRINT:INP 
UT"CANTIDAD:";CAN ELSE CAN=CVS(Ci 
) 

1560 GOTO 710 

1570 CLS:F=0:IF ING=1 THEN PRINT: 


PRINT"Usted esta en un punto de 
averiguación en el caso 
de haber algún cheque a cobr 

ar en el dia de la fecha":PRINT E 


LSE 1590 

1580 IF ING=1 THEN PRINT:PRINT"Us 


ted esta en un punto de 

averiguación en el caso de habe 
r algún cheque a cobrar en el 

dia de la fecha":PRINT ELSE 1590 
1590 PRINT:INPUT"POR FAVOR INGRES 
E FECHA:";D,M,A:PRINT 
1600 GET #2,1:1=CVS(ULi)-1 
1610 FOR T=1 TO I:GET #2,T:IF CVS 
(DICÍ)=D AND CVS(MCi)=M AND CVS(A 
Ci)=A THEN 1620 ELSE 1660 
1620 PRINT"BANCO:";BNi 
1630 PRINT"IMPORTE:";CVS(ICi) 

1640 PRINT"N.v DE CHEQUE: "; NCi: PRI 
NT 

1650 F=F+lsV=V+l:IF V=2 THEN 1720 
1660 NEXT T 

1670 IF F>=1 THEN 1690 ELSE lbbO 
1680 PR INT: PRINT: PR INT " **-****NQ H 
AY CHEQUES A COBRAR*******" 

1690 PRINT:INPUT"ALGO MAS(S,N):"; 
SNi 


1700 IF SNÍ="S" THEN 1570 ELSE I 
F ING=1 THEN ING=0:RETURN 
1710 GOTO 150 

1720 PRINT:PRINT"PULSE UNA TECLA' 


1730 IF INKEYÍ="" THEN 1730 ELSE 
CLS:V=0:GOTO 1660 

1740 CLS:PRINT"LA CANTIDAD EXISTE 
NTE ES:";FG 

1750 PRINT:INPUT"LO LLEVA IGUAL:" 
; SNi 

1760 IF 3Ni="S" THEN 1770 ELSE 15 
O 

1770 INPUT"CANTIDAD QUE LLEVA:";C 

T 

1780 PRINT:F=FG-CT:GOTO 900 
1790 CLS:PRINT"COD. FECHA 
HORA(H/M/S) CANT 
1800 B(í)=3:B(2)=3i:B(3)=18 
1810 FOR T=1 TO 3:FOR U=1 TO 18:L 
OCA I E B ( I) ,U: F*RINI " V" : NEX T U:NEXT 
TsRETURN 

1820 PRINT"CODIGO: FECHA 

CANTIDAD":GOSUB 1790 
1830 GOTO 150 

1840 CLS: PRI NT"-VENTA DEL 

MES-" 

1850 PR I NT: I NF*U T " MES: " : M: IF M=0 O 
R M .-=• 12 THEN 1850 
1860 GET #2.M 

1870 PRINT:PRINT"EN EL MES";M;"SE 
VENDIO:"; 
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1880 X=0:MIL=CVS<P2í) 

1890 PRINT MIL;“AUSTRALES"-.PRINT 
1900 FOR T=<(M-1>*30>+1 TÜ((M-1>* 
30)+30sX=X + 1 

1910 GET #4, T: IF CVS<CRí)=0THEN i 
950 ELSE GET #1,CVS(PEÍ):PRINT"DE 
TALLE: " ; DCÍ: PR 1 NT"CANTIDAD: *•; CVS ( 
CRÍ) : PR I NT "F'RECI □ VENTA: " ; CVS < PEÍ 
):G=G+(CVS<CRí>*CVS(PEí)):PRINT;I 
F X=2 THEN X=0:GOTO 1930 
1920 NEXT T 

1930 PRINTSPRINT“PULSE UNA TECLA' 

1940 IF INKEYÍ="“ THEN 1940 ELSE 
CLS;GOTO 1920 

1950 PRINTSPRINT“EN TOTAL SE EXTR 
AJO;"s G-8;" AUTRALES" 

1960 PRINT:INPUT“DESEA VER VENTAS 
DEL MES: **; SNÍ: IF SNÍ="S" THEN 19 
70 ELSE 150 
1970 CLS 

1980 PRINT"VENTAS DEL MES:":PRINT 
1990 GÜSUB 1790 
2000 X=2:N=0:CA=0 

2010 GET #5,700: G=*CVS(P7í) sFOR Y= 
1 TO G:GET #5,Y:IF CVS(MIÍ)=M TH 
EN 2020 ELSE 2060 

2020 IF CVS(CNÍ)< =0 THEN 2070 ELS 
E X=X+1:LOCATE O,XSPRINT CVS(DPí) 
:LOCATE 33,X:PRINT CVS(CNÍ):LOCAT 
E 4,X:PRINT CVS(DAÍ)PRINT"P 
RINT CVS(MIÍ);SPRINT"/";SPRINT CV 
S(ANÍ):LOCATE 19,X SPRINT CVS(JLÍ) 
;CVS <IRí);CVS < SRÍ > 

2030 N=N+1sIF N=15 THEN 2040 ELSE 
2060 

2040 N—O:X=2:LOCATE O,20:PRINT"PU 
LSE UNA TECLA'' 

2050 IF INKEYÍ-"" THEN 2050 ELSE 
GOSUB 1790 
2060 NEXT Y 

2070 LOCATE O,20:PRINT"PULSE UNA 
TECLA'" 

2080 IF INKEYÍ="" THEN 2080 ELSE 
150 

2090 CLS SPRINT"-HISTOGRAMA— 

2100 PRINT" - 

2110 FOR T= 1 TO 580:NEXT T 

2120 R=0:CLS:FOR T=1 TO 46 STEP 2 

SPRINT"_ 

_":NEXT T:LOCATE 1,1 

2130 FOR Y=1 TO 21sFOR T=6 TO 30S 
TEP 2:LOCATE T,Y:PRINT"NEXT T 
:NEXT Y 

2140 G=2200:FOR T=i TO 20:LOCATE 
1 ,T:G=G-100:PRINT G:NEXT T 
2150 LOCATE 7,21:PRINT"E F M A N 
J J A S Ü N D ,; 

2160 C0=7:LI=20 

2170 R=R+1sIF R=13 THEN 3270 

2180 GET #2,R 

2190 MAS=CVS(P2í):MES=INT(MAS):Aí 
=STRÍ(MES):G=LEN< Aí) :H=G-1:Gí=MID 
Í(AÍ,H,H>sIFVAL (Gí)-0THEN2200ELSE 
IFVAL(Gí >>50TH£N3220ELSE3250 
2200 IFMAS<2000RMES=0THEN3280 
2210 N=100 

2220 LOCATECO,LI: PRINT" ¿T" : IFLI = 1T 
HEN C0=C0+2:LI=20s G0T02170 
2230 N-N+100 

2240 IF MES=NTHENCÜ*C0+2:LI=20:GO T 
02170 

2250 L.I=LI -1 
2260 GOTO 2220 

2270 CLS SPRINT"-REPONER S I 

QCK---“ 

2280 F ÜR t =1T0350:Nt X1T:CLS 
2290 PR INT s INPUT 81 CÜUI Gü: " ; COD: IF 
COD< =01 HEN PR 1N ! : PR 1 NI " ARTI Cl JLO N 
O REGISTRADO:"sGGTU 2290 
2300 PRINT"ARTICULO N s";COD:" CON 
TIENE ESTO " 

231O GET #1,COD:GÜSUB 1220 

2320 PRIN T sINPU1“REPONE < S/N >:";SN 

í 


Continúa STOCLI 


2330 IF SNÍ="N" THEN 150 
2340 PRINT:INPUT“HAY NUEVA DESCRI 
PC ION (S/N) : " : SNÍ: IF SNí=‘'S" THEN 
INPU T"DESCRIPCION:";DEÍ:IFLEN(DEÍ 
)>21 THEN 2340 

2350 PRINT;INPUT"CAN TIDAD:";P 
2360 PRINT: INPUT"PRECIO l)E COSI U: 
"; CV 

2370 PRINTsINPUT"PRECIO DE VENTA: 

8 : PV 

2380 LSET Cí=MKSí<P) 

2390 LSET Eí=MKSÍ<CV> 

2400 LSET Sí=MKSí(PV) 

2410 IF SNí="8" THEN LSET NÍ=DEÍ 
2420 RUT #1,COD 

2430 REM BUSQUE LINEAL DEL CODIGO 
DE VENTAS 

2440 GET #3,1:F=CVS(P1Í>:IF F=ú T 
HEN2480 ELSE F=F + 1 

2450 FOR T=2 Tü F:GET #3,T:IF CVS 
(Plí)=CÜD THEN 2470 ELSE NEXT T 
2460 GOTO 2480 

2470 Aü=ü:LSET P6Í=MKSÍ<AQ>:LSET 
P1í=MKSÍ(O)s RUT #3, T 
2480 PRINT:INPUT"ALGO MAS<S/N):"; 
SNÍ:IF SNí="S" THEN 2290 ELSE 150 
2490 CLS SPRINT"-VARIOS- 


2500 FOR T=i TO 599:NEXT T 
2510 1NPUT"COD1GO:";COD:IFOOD >895 
ORCOD<=0THEN251OELSEGET #1,COD:GO 
SUB 1220:IFCVS(Cí>=<OTHENPRINT"NO 
PUEDE SER EXTRAIDO":G0T02660ELSE 
PRINT:INPUT"ES EXTRAIDO:";SNÍ:IF 
SNÍ="S" THEN 2520 ELSE 150 
2520 INPUT"MES:";M:IF M>12 THEN 2 
520 

2530 GET #4,M+360:F=CVS ( P3í):Ü=F+ 
1:IF O>30 THEN 5210 
2540 LSET P3Í=MKSÍ<0) 

2550 RUT #4,M+360 
2560 L= < M-1> *30+0 
2570 INPUT"CANTIDAD:";CA 
2580 LSET CRÍ=MKSÍ(CA> 

2590 S=CVS (Sí) :LSET PEÍ=MKSÍ <S>:L 

SET DCí=Ní 

2600 PUl #4,L 

2610 GET #1,COD 

2620 I=CVS(Cí) 

2630 F=I-CA 

2640 LSET' Cí=MK3í(F> 

2650 PUT #1,COD:IF F<=0 THEN MI=- 
1:GOTO 920 

2660 PRINT:INPUT"ALGO MAS(S/N)-"- 
SNí ’ " 

2670 IF SNí="S" THEN 2490 
2680 GOTO 150 

2690 CLS:LOCATE 0,0:PRINT"CODIGO" 

:LOCATE 8,O:PRINT"DESCRIPCION":PR 
INT:PRINT 

2700 GET #3,l:F=CVS<Plí) : IF F=o 1 
HEN 2750 ELSE J=i 

2710 FOR T=2 TO F+i:GET #3,T:IF C 
VS(P6í)=0 THEN 2740 ELSE IF CVSíP 
lí)=0 1HEN 2740 

2720 J=J+1:LOCATE 2,J:PRINT CVS(P 
lí)s LOCATE 10. J:PRINT NXÍ 
2730 IF 0=14 THEN YT=1:G0T0 2750 
2740 NEXT í 

2750 PRINT"PULSE UNA TECLA PARA C 
QNTINUAR" 

2760 IF INKEYÍ="" THEN 2760 ELSE 
IF Yí = i THEN J=1:Gü Tü 2740 ELSE 1 
50 

2770 CL S:GET #2,1:ASD=CVS<ULí >;IF 
ASD=OTHENASD=13ELSEASD=ASD+1: 

2780 IF ASD>895THEN 4610 

2790 INPUf"FECHA:";D,N,A 

2800 PRINT:INPUT"BANCO:";BANCOÍ:I 

F LEN<BANCOÍ)>9 THEN 2800 

2810 PR 1 N I : I NPUT " N.v DE CHEQUE: " : N 

Uí: ii- LENÍNUÍ) >6 THEN 2810 

282C PR 1N] : INPUT 8 ' IMPORTE: " ; IN 

283.0 LSt f DJCÍ=MKSÍ(D) 

2840 tSfcl' MCÍ«MKSÍ(M) 

285o LSEI ACí=MKSí<A) 


2860 LSET BNí=BANCOí 
2870 LSET ICí=MKSí(IN) 

2880 LSET NCÍ=NUÍ 

2890 PRINT ASD:PUT #2,ASD 

2900 LSET ULÍ=MKSÍ(ASD):PUT #2,1 

2910 PRINT:INPUT"ALGOS(S,N):";SNÍ 

2920 IF SNÍ="S" THEN 2790 ELSE 15 

O 

2930 CLS:PRINT:INPUT"Desea las av 
eriguaciones de los cheques: 

<S/N>:";SNÍ:IF SNÍ="S" THEN2940 E 
LSE 2950 

2940 ING=1:GOSUB 1570 
2950 PRINT:INPUT"Desea acentar ho 
ra en ventas del mes: (S/N) ; SNÍ 

2960 IF SNÍ="S" THEN 2970 ELSE 30 
20 

2970 CLS:INPUT"HORA:HAD:IF HAD< 
0THEN2970 

2980 INPUT"MIÑUTOS:";MAD:IFMAD<0T 
HEN 2980 

2990 INPUT"SEGUNDOS:";SAD:IF SAD< 
O THEN 2990 

3000 PRINT:PRINT"PRESIONE UNA TEC 
LA EN DICHA HORA" 

3010 IF INKEYÍ="" THEN 3010 ELSE 
TIME=0:RETURN 

3020 HAD=0:MAD=0:SAD=0:GOTO 150 
3030 IF SAD=0 AND MAD=Ü AND HAD=0 
1HEN HURA=0:MINU=0:SE6U=0:GOTO 3 
170 

3040 MH=0:SM=0:HTP=TIME/50 
3050 HURA=INT(HTP/3600) 

3060 MINU=INT(HTP/60) 

3070 SEGU=HTP MOD 60 

3080 TSEGU=SEGU+SAD:IF TSEGU>=60 

THEN 3090 ELSE 3110 

3090 TSEGU=TSEGU MOD 60 

3100 SM=1 

3110 TMINU=MINU+MAD:IFINT(TMINU)= 
60 THENTMINU=0:G0T03130ELSEIFTMIN 
U >60 THEN 3120 ELSE 3140 
3120 TMINIJ=TMINU MOD 60 
3130 MH=1 

3140 HURA=HURA+MH+HAD 
3150 MINU=TMINU+SM: 

3160 SEGU=TSEGU 

3170 LSET JLÍ=MKSÍ(HURA):LSETIRí= 
MKSÍ < MINU):LSETSRÍ=MKSÍ <SEGU> 

3180 PUT #5,J 
3190 SM=0:MH=0 
3200 RETURN 

3210 TMINU=MINU+MAD:PRINT TMINU:I 
F INT(TMINU)=60 THEN TMINU=0 GOTO 
3130 ELSE IF TMINU>60 THEN 3120 
ELSE 3140 

3220 T1=100-VAL<GÍ> 

3230 MES=MES+TI: 

3240 GOTO 2200 
3250 TI=MES—VAL(Gí) 

3260 MES=TI:GOTO 2200 

3270 IF INKEYÍ="" THEN 3270 ELSE 

150 

3280 C0=C0+2:L1=20:GOTO 2170 
3290 END 

3300 COLOR 2,1,3:CLS 

331O LOCATE 1,0:PRINT"...MENU DE 

CLIENTES».. ’:LOCATE 1.2:FRIN1"PAG 

OS-1 88 : LOCATE 20,2: PRINT" 

FICHA PERSONAL—2":LOCATE 1,4:PRI 

NT"SALDO ACTUAL-3":LOCATE 20,4: 

PRINT"MODIF1C. DATOS—4":LOCATE 1 

, 6 i PR I NT 88 VER FICHA-5" 

3320 LÜCATE20,6:PRINT"1NIC. ARCHI 
VOS—6":LOCATE1,8:PRINT"FIN DE TR 
ABAJ O- 7 " : LÜCATE20,8: F*R I NT "MENU ST 

OCK-A " : LOCA TE 1 , 10: PR I NT " DATO 

S CLIENTES—B":L0CATE20,10:PRINT"L 
IST. CLIENTES—C":LOCATE9,12:PRIN 

T"MENU PRINCIPAL D":LOCAIE1,20: 

PRINT"SU OPCION: (1 -ü)“ 

3330 LOCATE 1,8:PRINT"FIN DE TRAB 
AJO—7 

3340 LOCATE 20,8:PRINT"MENU SIOCK 
-A" 

3350 LOCATE 1,10:PRÍNT”DATDS CLIE 
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NTES-B 

3360 LOCATE 20,10:PRINT"LIST. CLI 
ENTES—C 

3370 LOCATE 9,12:PRIN T "MENU PRINC 
I PAL.-D 

3380 LOCATE 1,20:PR1NP‘SU OPCION: 

(1-7)-<A-D>"; 

3390 G$=INPUT$(1):BEEP 
3400 6 =VAL(G$> 

3410 IF G$="A" THEN 130 

3420 IF G$="B" THEN 4200 

3430 IF G$="C" THEN 4430 

3440 IF G$="D" THEN 5370 

3450 ÜN G GOTO 3470,3680,3790,384 

0,3990,4350,1460 

3460 GOTO 3390 

3470 CLS:INPUT"NOMBRE:";L*:IF LEN 
(L$>>13 THEN 3470 

3480 1 NPUT " CÜD1 Gü: "; CÜD: 1 F COD >20 

OORCODOOTHEN 3480 

3490 GET #6,520:L=CVS<KI$>+1:IF L 

>=155 THEN 4530 

3500 GET # 6 ,COD 

3510 HT=CVS(UY$> 

3520 PRINTSPRINT"USTED DEBE:":HT; 
"AUSTRALES 

3530 PRINT:INPUT"PAGA:(S/N):"; SN$ 
3540 IF SN$="S" THEN 3550 ELSE 33 
10 

3550 1NPUT"CUANTO ENTREGA:";EN 
3560 INPUT"FECHA:"? F0$ 

3570 LSET NP$=L$ 

3580 LSET OP*="PAGO" 

3590 LSET FP*=FO$ 

3600 LSET H$=MKS$(EN> 

3610 PUT # 6 ,L 

3620 LSET KI$=MKS$(L> 

3630 PUT #6,520 
3640 GET # 6 ,COD 

3650 G=CVS (UY$>-EN:LSET UY$=MKS$( 
G):PUT # 6 ,COD 

3660 PRINT:INPUT"ALGO MAS(S/N):"; 
SN$ 

3670 IF SN$="S" THEN 3470 ELSE 33 
00 

3680 CLS:GET #6,521:C=CVS(LP$>+1: 
IF 0=200 THEN 4710 
3690 INPUT "NOMBRE: ";N1$: IF LEN (NI 
$>>13 THEN 3690 

3700 INPUT"DIRECCION :"5 DI$:IF LEN 
< DI $.) > 13 THEN 3700 

3710 INPUT"TELEFONO:";TE*:IF LEN < 
TE $>>8 THEN 3710 
3720 LSET NT$=NI$ 

3730 LSET ZD$=DI$ 

3740 LSET AW$=TE$ 

3750 PUT # 6 ,C 

3760 LSET LP$=MKS*(C>:PUT #6,521 
3770 PRINT:INPUT"ALGO MAS:(S/N):" 
$SN$ 

3780 IF SN$="S" THEN 3680 ELSE 33 
10 

3790 CLS:INPUT"CODIGO:";COD:IFCOD 
>1550RCQD< =0 THEN 3790 
3800 GET # 6 ,COD:P=CVS(UY$) 

3810 PRINT:PRINT"SALDO ACTUAL :"5 P 
3820 PRINT:INPUT"ALGO MAS(S/N):"; 
SN$ 

3830 IF SN*="S" THEN 3790 ELSE 33 
10 

3840 CLS:01 = 1 5 INPUT 'NOMBRE:";J %:I 
F LEN(J$ > >13 THEN 4570 
3850 G=LEN(J$>:IF 6=13 THEN3870 
3860 R=13—G:FOR U=1 TO R:J$=J$+" 
":NEXT U 

3870 GET #6,521:T=CVS<LP$> 

3880 FOR Y=155T0T:6ET #6,Y:IF J$= 
NT* THEN 3890 ELSE NEXT Y:PRINT"N 
OMBRE NO REGISTRADO":Vi=0:GOTO 39 
70 

3890 GOSUB 4280 

3900 INPUT"MODIFICA NOMBRE:(S/N>: 
";SN*:B*(1)=SN* 

3910 PRINTsINPUT"MODIFICA DIRECCI 
ON(S/N):":SN*:B*(2)=SN* 


Continúa STOCLI 


3920 PR I NT: I NPUT " MODIFICA 'i ELEFON 
O:<S/N>:":SN*:B*(3)=SN* 

3930 CLS: PR INI: IF B*(i>="S" THEN 
I NPUT " NOMBRE: " : NNU*: L.SE T NT*=NNÜ* 

:PUT # 6 .Y ELSE 3940 
3940 IF B*< 2 >="S" 5 HEN 1NPUT"DIRE 

CCION:";NDÍ*:LSET ZD*=NDI*:PUT #6 
,Y ELSE 3950 

3950 i F B* (3) = " S " THEN 1NPU1 " 1 ELE 
FONO:":AE$:LSEI AW*=AE*:PUT # 6 ,Y 
ELSE 3960 

3960 B*(1)="":B*(2)= "":B*(3)="“ 
3970 PRINTsINPUT"ALGO MAS(S/N>:"; 
SN* 

3980 IF SN*="S" THEN 3840 ELSE 33 
00 

3990 CLS:INPUT"NOMBRE:";L*:IF LEN 
(L*>>13 THEN 3990 ELSE B=0:0=0:K= 
O 

4000 INPUT"CODIGO DE USUARIO:";CO 
DslF COD >200 4000 ELSE PRI NT 

4010 T=LEN(L*):IF T=15 THEN 4030 
4020 H=15-T:FOR T=1 TO H:L*=L*+" 

":NEXT T 

4030 GET #6,520:V=CVS(KI*>:IF V=0 
THEN 4170 
4040 FUR T=1T0V 
4050 GET # 6 ,T 

4060 IF NP*=L* THEN 4080 ELSE 407 
O 

4070 IFV=TTHENZX=1:G0T04170ELSENE 
XT T 

4080 IF ÜP*="PAGÜ " THEN 4090 EL 
S7320 

4090 PRINT"FECHA:";FP* 

4100 B=1 

4110 PRINT"OPERACION:": ÜP* 

4120 PRINT"ENTREGA:";CVS(H*>:PRIN 
T 

4130 K=K+1:IF K=2 THEN 4150 

4140 GOTO 4070 

4150 PRINT"PULSE UNA TECLA‘ 

4160 IF INKEY*="" THEN 4160 ELSE 
CLS:K=0:GOTO 4070 , 

4170 IFZX=lTHENZX=Os GET #6,C0D:PR 
INT"SALDO ACTUAL:";CVS(UY* > 

4180 PRINT:INPUT"ALGO MAS(S/N;:": 
SN* 

4190 IF SN*="S" THEN 3990 ELSE 33 
00 

4200 CLS:INPUT"NOMBRE:";L$:IF LEN 
(L*>>13 THEN 4200 
4210 H=LEN(L*> 

4220 IF H=13 THEN 4250 
4230 B=13—H 

4240 FOR T=1 TO B:L*=L*+" ":NEXT 
T 

4250 GET #6,521: C=C-VS (LP* > 

4260 FOR Y=155T0C:GET#6,Y:IFL*=NT 
*THEN4280 

4270 NEXT Y:GOTO 4340 
4280 GET # 6 hY:CLS 
4290 PRINT"NOMBRE:";NT* 

4300 PRINT"DIRECC1ON:" 5 l D* 

4310 PRINT"TELEFONO:"sAW*:IF VI=1 
THEN V1=0:GOTO 3900 
4320 PRINT:INPUT"ALGO MAS(S/N):"; 
SN* 

4330 IF SN*="S" THEN 4200 ELSE 33 
00 

4340 PRINT"NOMBRE NO REGISTRADO": 
GOTO 4320 

4350 CLS:INPUT"ESTA SEGURO<S/N>:" 
;SN*:ÍF SN*="S" THEN 4360 ELSE 33 
00 

4360 FOR 1=1 fO 2u0:LSET NT*= ,,H sL 
se r ZU*="":LSE í AW*="":PUf # 6 ,I:N 
EX I I 

4370 IF PE=1 iHEN 4410 
4380 FOR T = t m 200:LSET NP*="":L 
SET ÜP*=-":LSET FP*=""slSET H*=MK 
S*(O;:LSET UY*=MKS*(0>:LSET DK*=" 
" : L.SET CLÍ=MKS$ (O) : LSET PC*=MKS* ( 
O):LSET UY*=MKS*(Oi:PUt #s,T:NEXT 
T 


*390 LSE í KI *=MKtí* (O) : PU 1 # 6 >, 520 
4400 IF P=0 THEN 4410 ELSE 3300 
4410 LSET LP*=MKS* (155) : PU1 #s, 52 
1 

4420 GOTO 3300 

4430 CLS: GE T #á> ,521: 3=CVS < LP* > : 1F 
S>=196THEN S=195 

4440 CX=0:FOR Y=155 TO S:GET # 6 ,V 
:CX=CX+1:A*<CX)=Nl*:NEXT Y 
4450 T=CX:0E=1:P=0:GOTO 1350 
4460 FOR Y=1 ÍÜ F+isIF A*(Y)=3PAC 
E*(13) THEN 4470 r ELSE PRINI A* ( 
Y) : P=P+1: IF P=15 i HEN 4480 
4470 NEX i Y 
4480 GúJ=i 

4490 PRINT:PRINT"PULSE UNA TECLA 

4500 IF 1NKEY*="" (HEN 4500 ELSE 
IF ÜW= i I'HEr i&FJASEA* : \j IMA* (42) sGOFO 
3300 ELSE P=0:CLS:GUI O 4460 
4510 SCREEN O: CLS: LULA ¡t, *.4:PRIN 
T" > >>MENU PR l NL I PAL< • ‘' 

4520 LOCATE 4, 6 »: PR IN f " 1 -MENU S TOC 
K OPCIONES(16) LOLA iE 4, 8 :PRINI " 
2 -MENU CLI ENTES OP - ai)": LOCA í E 4 
,10:PRINT"3-FIN DL !KABAJO":LOCAT 
E 6,15:PRÍNT"SU OPCION: "?:CLÜSE 
# 1 :GOTO 40 

4530 CLS: LÜLATE 1,5: PR 1 NT " US 1 EL» N 
O PUEDE REGISTRAR MAS OPERALÍÜNtS 

4540 LOCATE 1,7:PRINT"DEFINA POR 
UNA OPCION:" 

4550 LOCA iE 0,10:PRINI"1-NO REGIS 
TRA MAS POR UN TIEMPO" 

4560 LOCATE O,12:PRiNT"2-INICIAL! 
ZA NUEVAMENTE LOS REGISTROS" 

4570 LOCATE 2,14:PRINT"OPCION:(1- 
2 ) : "; 

4580 tí$=INPUT $ ( 1 );G=VaL ( G$):P=1 
4590 ON 6 GOTO 3300,4380 
4600 GOTO 4580 

4610 PRINI"LO LAMENTO UD. NO PUED 
E REGISTRAR MAS CHEUUES A COBR 
AR 

4620 PRINT:PRINI"ELIJA:" 

4630 PRINT:PRIN T" 1-IGNORA HASí 

A INICIALIZACION 

4640 PRINTSPRINT" 2-1NICIAL IZA 

NUEVAMENTE 

4650 6 $= í NPUT* a): 6 =VAL< G$) 

4660 ON G GOTO 150,4680 
4670 GOTO 4650 

4680 FOR T=1 TÜ N:LSET DC$=MKS$(0 
):LSET ACS=MKS$(O):LSET MC$=MKS$( 
O):LSET IC$=MK5*(O):LSET NC$="":L 
SET BN$="":PUT #2,T:NEXT T 
4690 LSET UL$=MKS$(O):PUT #2,1 
4700 GOTO 150 

4710 CL.S: LOCAT E 1,5: FRINT"UD. NO 
PUEDE REGISTRAR MAS DATOS" 

4720 LOCATE 1,7:PRINI"CLASIFIQUE 
POR UNA OPCION : 11 

4730 LOCATE 1,9:PRlNI"1-NO REG1ST 
RA MS M 

4740 LOCATE 1,11:PR1NT“2-BORRA TO 
DOS LOS DATOS" 

4750 LOCATE 5,13:PRINT"OPCION<1-2 
):";:PE=1 

4760 G$=INPUT$(1):G=VAL(G$) 

47/0 ON G GOTO 3300,4360 
4780 GOTO 4760 

4790 -EX ESO DE VENTAS- 

4800 CLS 

4810 PRINT"USTED NO PUEDE REGISTR 
AR MAS VENTAS 
4820 PRINT"ELIJA 

4830 PR1NT:PRINT"1-NO REGISTRA MA 
S POR UN TIEMPO 

4840 PRINT SPRINT"2-BURRA LOS REGI 
STRÜS 

4850 PRIN T:PRINT"SU OPCION:": 

4860 G$=INPUr$ <i > : G- VAL(G$ > 

4870 IF 6=1 fHEiM 150 
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4880 IF G=2 THEN 4900 
4890 BÜTO 4860 

4900 CLSSPRINT"LO LAMENTO PERO SE 
BORRARAN TODAS SUBVENIAS 
4910 FOR T=1 TO NsLSET P6*=MKS$(1 
):LSET P1*=HKS*<0):LSET NX$="":PU 
T #3,1:NEXT T 

4920 LSE I* P1 $=MKS$ (O> :PUT #3, i 
4930 GOTO 150 

4940 CLSsPRINT"LOS SIENTO NO PUED 
E REGISTRAR MAS ARTICULOS 
4950 PRINT:PRINI"ELIJA 
4960 PRINT:PRINT“1-NO REGISTRA MA 
S POR UN TIEMPO 

4970 PRINT:PRIN f"2—BORRA LOS REGI 
STROS 

4980 G$=INPUT *< 1>:6-VAL <G$> 

4990 ON G GOTO 150,5010 
5000 GOTO 4980 
5010 FOR 1=1 TO N 
5020 LSET N$="" 

5030 LSET D$="" 

5040 LSET S$=MKS$(0> 

5050 LSET C*_=MKS$(O) 

5060 LSET E*=MKS$(0> 

5070 PUT #1,1 
5080 NEXT I 

5090 LSET P1$=MKS$(O):PUT #3,1001 


5100 GOTO 150 

5110 PRINT"LOS SIENTO, UD. NO PUE 
DE REGISTRAR MAS COMPRAS,OPCION 
( 8 ) 

5120 PRINT'ELIJA:" 

5130 PRINT:PRINT"1—NO REGISTRA MA 
S 

5140 PRINTSPRINT"2-BORRA LOS REGI 
STROS 

5150 G$=1NPUT*<1):G=VAL < G*) 

5160 ON G GOTO 150,5180 
5170 GOTO 5150 

5i80 LSET P7*=MKS$(O):PUT #5,700 
5190 FOR Y=1 TO NsLSET DP*=""sLSE 
T CN*=MKS* < O) : LSET M1$=MKS* < O) s LS 
El AN*=MKS* <0) : LSET DA*=MKS* (O) : L 
SET SR*=MKS*(O)sLSET JL*=MKS*(0): 
LSET 1R*=MKSS(O):PUT #5,Y:NEXT Y 
5200 GOTO 150 

5210 PRINT"USTED EN EL MES ";M 
5220 PRINT"NO PUEDE REGISTRAR MAS 
VARIOS 

5230 PRINTSPRINT" ELIJA:" 

5240 PRINT"1-IGNORA HAS í A PROXIMA 
INICIALIZACIÜN 

5250 PRINT:PRINT"2-INICIALIZA" 
5260 PRINT:PRINT"ÜPCION:"; 

5270 Ü*= INPUT * (1) : G=VAL < 6*) 


5280 1F G>2 THEN 52/0 
5290 ON G GOTO 150,5300 
5300 M=M-1 
5310 L=(60*M)+30 

5320 FOR T=i TU LslSLI PL^=MKG^<0 
) : LSET CR*=MKSS <0/ s LSEI DG*=nKS* < 
O) : LSEI DI " " : PU t *4,1 : NLX V I 
5330 GOTO 150 

5340 IF ERR=7 THEN PRINT“Lo sieni 
o,MEMORIA compj. eta .deoera rearesa 
r al menú y pedir de nuevo la odl 
ion":FOR f=l TO 1560;NEXT í:LLEAR 
: RUN 

5350 I F£RR=55 T HENP»\ IN1 •' **ARU \ i VOS 
NO I NIC! ALI ZADÜS** 1 * s FOR i==l tU i 
SOOsNEXI TsRESUME 150 
5360 RESUME 150 

5370 CLSs LOCATE 4,3:PR XNT". „ .MENU 
PRINCIPAL 

5380 L0CA1E 4,5:PRINI"MENU STÜOK. 
.1 

5390 LOCATE 4,7:PRINi"MENU OLILU¬ 
ES. . .2 

5400 LOCATE 4,9:PRINT"FIN DL IRAK 

AJO..3 

5410 LOCATE 4,13:PRIN!"OPCION:"; 
5420 GOTO 120 
5430 END 


PORTFOLIO Viene de pág. 62 MSX, DC-64/128 y Spectrum 


10 REM *********************** 


20 REM * * 
30 REM * PORTFOLIO * 
40. REM * DREAN COMMODORE * 
50 REM * * 


60 REM *********************** 
70 READ N 

80 DIM A<N,8),A$(N),V(40),S<N) 
90 FOR 1=1 TO N 
100 FOR J=1 TO 8 
110 READ A(I,J) 

120 NEXT J 
130 READ A$(I) 

140 NEXT I 

150 FOR 1=1 TO 40 

160 PRINT "VARIACION 1 *; I 

170 INPUT V(I) 

180 NEXT I 

190 INPUT "CLAVE";K 

200 PRINT CHR*(147) 

210 FOR 1=1 TO 20 

220 PRINT I;V(I),1+20;V<1+20) 

230 NEXT I 

240 PRINT "CLAVE: ";K; 

250 PRINT "TODO OK? (S/N)" 


10 REM ********************** 
20 REM * * 

30 REM * PORTFOLIO * 

40 REM * MSX - SPECTRUM * 
50 REM * * 

60 REM ********************** 
70 READ N 

80 DIM A(N,8),A$(N),V<40),S(N) 
90 FOR 1=1 TO N 
100 FOR J=1 TO 8 
110 READ A(I,J) 

120 NEXT J 
130 READ A*(I) 

140 NEXT I 

150 FOR 1=1 TO 40 

160 PRINT "VARIACION";I 

170 INPUT V<I) 

180 NEXT I 

190 INPUT "CLAVE";K 

200 CLS 

210 FOR 1=1 TO 20 

220 PRINT I; V < I) ,I+20;V(I+20) 

230 NEXT I 

240 PRINT "CLAVE: ";K; 

250 PRINT "TODO OK? (S/N)" 


260 GET B* 

270 IF B*="S" THEN 410 
280 IF B*="N" THEN 300 
290 GOTO 260 

300 PRINT "INGRESE NUMERO QUE DE 
SEA CAMBIAR (1-41)" 

310 INPUT C 

320 IF C=41 THEN 370 

330 PRINT CHR$(147) 

340 PRINT "CUAL ES EL VALOR DE " 
5 C 

350 INPUT V(C> 

360 GOTO 200 

370 PRINT CHR$(147> 

380 PRINT "CUAL ES EL NUEVO VALO 
R DE LA CLAVE?" 

390 INPUT K 

400 GOTO 200 

410 FOR 1=1 TO N 

420 S(I)=0 

430 FOR J=1 TO 8 

440 S <I)=S(I)+V(A(I,J)) 

450 NEXT J 
460 NEXT I 
470 FOR 1=1 TO N 


260 B*=INKEY* 

270 IF B*="S" THEN 410 
280 IF B*="N" THEN 300 
290 GOTO 260 

300 PRINT "INGRESE NUMERO QUE DE 

SEA CAMBIAR (1-41) M 

310 INPUT C 

320 IF C=41 THEN 370 

330 CLS 

340 PRINT "CUAL ES EL VALOR DE " 
;C 

350 INPUT V(C) 

360 GOTO 200 
370 CLS 

380 PRINT "CUAL ES EL NUEVO VALO 
R DE LA CLAVE?" 

390 INPUT K 

400 GOTO 200 

410 FOR 1=1 TO N 

420 S(I)=0 

430 FOR J=1 TO 8 

440 S(I)=S(I)+V(A(I,J)) 

450 NEXT J 
460 NEXT I 
470 FOR 1=1 TO N 


480 IF S(I)< >K THEN 520 
490 PRINT CHR$<147) 

500 PRINT (I>;"GANO EL PORTFOl 
10, AVISARLE URGENTEMENTE" 

510 LM=1 
520 NEXT I 

530 IF LM=1 THEN 560 
540 PRINT CHR$(147) 

550 PRINT -inC GANADORES" 

560 PRINT K;" CLAVE" 

570 FOR 1=1 TO N 
580 PRINT S(I);A$(I> 

590 NEXT I 
600 DATA 6 

610 DATA 1,2,3,4,5,6,7,8,"DIEGO" 
620 DATA 11,12,13,14,15,16,17,18 
,"SILVINA" 

630 DATA 21,22,23,24,25,26,27,28 
,"VERONICA" 

640 DATA 31,32,33,34,35,36,37,38 
ALBERTO" 

650 DATA 1,2,11,14,15,16,17,18," 
CLAUDIO" 

660 DATA 11,12,23,24,35,36,37,38 
,"MARCELA" 


480 IF S(I)< >K THEN 520 
490 CLS 

500 PRINT A*(I);" GANO EL POTFOL 
10, AVISARLE URGENTEMENTE" 

510 LM=1 
520 NEXT I 

530 IF LM=1 THEN 560 
540 CLS 

550 PRINT "NO HUBO GANADORES" 

560 PRINT K; " CLAVE" 

570 FOR 1=1 TO N 
580 PRINT S(I);A*(I) 

590 NEXT I 
600 DATA 6 

610 DATA 1,2,3,4,5,6,7,8,"DIEGO" 
620 DATA 11,12,13,14,15,16,17,18 
,"SILVINA" 

630 DATA 21,22,23,24,25,26,27,28 
,"VERONICA" 

640 DATA 31,32,33,34,35,36,37,38 
,"ALBERTO" 

650 DATA 1,2,11,14,15,16,17,18," 
CLAUDIO" 

660 DATA 11,12,23,24,35,36,37,38 
,"MARCELA" 
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CORREO 


Correo 

consultas 


Escriban sus consultas 


Escriban sus consultas y envíenlas a nombre de "K64 Sección Correo " a nuestra casa, 
Paraná 720,5 e Piso, (1017), Capital Federal. Á la brevedad posible publicaremos l;as contes 

taciones. 


P OKE 

MEZCLADO 

Tengo una TK-90X, y qui¬ 
siera saber cómo puedo ha¬ 
cer para sacar un POKE de 
un programa original, y có¬ 
mo puedo reconocer un 
programa original de otro 
reformado. 

MARIANO GUSTAVO 
PRIETO VALDEZ 
CAPITAL 

K64: 

El problema en este caso es 
que si perdemos la referen¬ 
cia del original, es muy di¬ 
fícil saber si el programa 
contiene algún POKE ex¬ 
traño. 

Por supuesto que si el PO¬ 
KE tiene algún efecto con¬ 
tundente, como por ejem¬ 
plo vidas infinitas, nos va¬ 
mos a dar cuenta de inme¬ 
diato que el programa fue 
modificado. 

Para sacar el POKE del o- 
riginal debemos saber có¬ 
mo estaba antes, mientras 
que para saber sifue modi¬ 
ficado debemos tener el có¬ 
digo original, o notar su e- 
fecto. 


SOFT PARA MIDI 

1. - Siendo poseedor de una 
C-64,¿qué es lo que me 
conviene técnicamente en¬ 
tre los drives 1541 y 1571? 

2. - ¿Existe algún tipo de 
software disponible para 
instrumentos MIDI? 

3. - ¿Cuál es el mejor editor 


de música para la C-64? 

4. - ¿Qué es el lenguaje de 
máquina? 

5. - ¿Qué es el ensambla¬ 
dor? 

HORACIO NO VELLO 
BS AS 


1- Trabajar con la 1571 
puede ofrecer algunas ven¬ 
tajas, como ser aprovechar 
los dos lados del disco (ví- 
a un programa en código 
máquina.) o una mejora en 
la velocidad de transferen¬ 
cia de datos. Sin embargo, 
estas ventajas por si solas 
no justifican la compra de 
este drive, ya que laveloci- 
dad se puede emular por 
medio de un cartridge, y a 
los dos lados puede acce- 
derse sacando el disco y 
dándolo vuelta. 

2.- La norma MIDI aún 
dista mucho de estar defi¬ 
nitivamente establecida. 
Portal motivo, cada fabri¬ 
cante establece sus propios 
códigos, aunque la norma 
de comunicación ya esté 
especificada. En el caso 
concreto de la C-64, no co¬ 
nocemos ningún paquete 
de Soft para manejar ins¬ 
trumentos MIDI. 

5. - Uno de los mejores pro¬ 
gramas de música escritos 
para la C-64 es elKawasa- 
ídiquepénidietü^ 
poner música como escu¬ 
char melodías preprogra¬ 
madas en conjunto con i- 


mágenes en pantalla. 

4. - Es el lenguaje que real¬ 
mente entiende el micro- 
procesador. Todos los o- 
tros lenguajes (BASIC, 
Pascal, etcétera) son tra¬ 
ducidos a lenguaje de má¬ 
quina para que puedan ser 
ejecutados. Si bien es algo 
difícil de aprender, la gran 
ventaja del mismo es la ve¬ 
locidad de operación. 

5. - Un ensamblador es un 
programa que ños permite 
programar en código má¬ 
quina por medio de una se¬ 
rie de símbolos llamados 
mnemónicos. De esta for¬ 
ma, en vez de tener que re¬ 
cordar el código hexadeci- 
mal de cada instrucción, 
recordamos un símbolo de 
dos o tres letras, que se re¬ 
laciona con la función a e- 
jecutar. 


DISTINTAS 

NOMENCLATURAS 

L- He visto en algunos artí¬ 
culos que nombran a la C- 
64 como CBM 64. ¿Qué 
quiere decir ésto? 

2. - Me gustaría que me ex¬ 
pliquen cómo interpretar 
los dibujos de los circuitos. 

3. - ¿Que es un microfara- 
dio? 

JUAN GRANILLO 
SAN ISIDRO 

K 64: 

1.-En realidad, el término 
CBM es anterior a la sim¬ 


ple C. Es la abreviatura de 
Commodore Business Ma¬ 
chines, y la misma se utili¬ 
zaba como logo para las 
primeras máquinas de esta 
afamada marca. 

2.- Por desgracia no es tan 
fácil como parece (si es que 
en realidad lo parece). Si 
tenemos en cuenta que un 
técnico debe estudiar va¬ 
rios años antes de poder 
entenderlo, no creemos 
que en esta sección se 
pueda dar cabida a un tema 
tan amplio. 

3 - El Faradio es láunidad 
que se utiliza para medir la 
capacidad eléctrica. Un 
microfaradio es lá milloné¬ 
sima parte de un faradio: 


SPRITES SIMULADOS 

¿Se le pueden incorporar 
de alguna forma Sprites a la 
C-16? 

EUGENIO 

KALBERMATTEN 

CHACO 

K 64: 

Sí, siempre es posible si¬ 
mular un Sprite por medio 
de software. Este procedi¬ 
miento es utilizado en to¬ 
das las computadoras que 
no poseen un cfup de vide- 
o con capacidad de mane¬ 
jar Sprites, como es el cajo 
de la Spectrum: 

Las rutinas para ello deben 
ser escritas en código má¬ 
quina por uña cuestión de 


K64: 
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Que su próxima 
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Rivadavia 822 1er piso (1002) Buenos Aires, Aigentina 
Tel.: 331-5393 / 6249 / 4483 - Telex 18660 DELPHI AR 


































CORREO 


velocidad, y básicamente 
deben contemplar la posi¬ 
bilidad de mover al Sprite 
(que será un conjunto de 
caracteres) en forma verti¬ 
cal y horizontal. 


MEJOR BASIC 

1. - ¿Qué computadora tie¬ 
ne mejor BASIC, la MSX o 
la Commodore 128? 

2. - ¿Qué nuevos comandos 
provee el SIMONs BA¬ 
SIC? 

3. - ¿Se pueden mandar al 
concurso progamas para 
CP/M? 

NICOLAS SABENA 
RAFAELA 

K 64: 

1. -En realidad, se trata de 
dos muy buenas versiones 
de BASIC. El que equipa a 
la C-128 es la versión 7.0 
de Commodore.queesmuy 
completa tanto en instruc¬ 
ciones lógicas, como en 
gráficos y sonido. También 
posee instrucciones tipo 
Pascal, que nos permiten 
estructurar (aunque sea un 
poco )nuestros programas 
en BASIC. 

Con respecto al lenguaje 
que equipa a las MSX. es la 
última versión de Micro¬ 
soft , la misma que se inclu¬ 
ye como equipo estándar 
en las PC s, y que se cono¬ 
ce como BASICA (la Avie¬ 
ne de Advanced). Es igual¬ 
mente completo en instruc¬ 
ciones lógicas, de sonido y 
gráficos. 

2. - Es una lista larga, pero 
se puede ver una nota al 
respecto que fue publicada 
en el número de octubre de 
K 64. 

3. - Sí, pero es conveniente 
incluir en el disco la ver¬ 
sión de CP/M utilizada eri 
la creación del mismo. 


TEMPERATURAS 

RELATIVAS 

En el número 30 del mes 
de septiembre de K 64, en 
el artículo de Mundo Infor- 
máticopágina 7 se ha desli¬ 
zado un pequeño error so¬ 
bre el concepto de cómo se 
produce la superconducti¬ 
vidad. 

Esta se logra con tempera¬ 
turas extremadamente ba¬ 
jas (cerca del cero absolu¬ 
to), y no como dice el ar¬ 
tículo, “relativamente ele¬ 
vadas”. 

JORGE BARREIRO 
BUENOS AIRES 

K 64: 

La idea del párrafo en 
cuestión es la de exponer 
los adelantos logrados con 
respecto a una serie de 
nuevos materiales capaces 
de presentar característi¬ 
cas super conductoras a 
temperaturas mucho más 
elevadas de lo que se logra¬ 
ba anteriormente. 

Estas temperaturas siguen 
siendo muy bajas, pero no 
se comparan con el cero 
absoluto. 

Para dar un ejemplo, en 
Japón ya se venden kits de 
investigación para que ca¬ 
da uno pueda hacer experi¬ 
mentos con superconducti¬ 
vidad. 


RESET PEREZOSO 

Hace apenas quince o vein¬ 
te días que me compré una 
TALENT MSX, y se me 
presentó el siguiente pro¬ 
blema' 

Después de jugar algún 
juego, el mismo queda en 
memoria aún después de a- 
pagar la computadora 
Esto sucede al menos du¬ 
rante 10 segundos, luego 
de los cuales la memoria de 
la máquina efectivamente 


se borra He verificado con 
algunos amigos que tienen 
la misma máquina y esto 
no les ocurre. ¿Lo que me 
pasa es normal ? 

ALEJANDRO 

ULANOSKY 

CORDOBA 

K64: 

No, no nos parece que ese 
problema sea normal. Por 
lo que dice la carta, pare¬ 
cería que la máquina no se 
resetea al apagar y encen¬ 
der, y por ello no interpre¬ 
ta que fue apagada. 

Si bien no creemos que e- 
xista un problema en la 
ROM de la máquina, se 
puede probar la rutina de 
reset de la si guíente forma. 
Con la máquina funcio¬ 
nando, abrir el port del 
cartridge, y allí en el extre¬ 
mo derecho hay un peque¬ 
ño interruptor que resetea 
la computadora. 

Si cuando accionamos el 
mismo no sucede nada, en¬ 
tonces el interruptor está 
desconectado, o efectiva¬ 
mente hay un problema se¬ 
rio de hard, En cualquier 
caso, es recomendable lle¬ 
var la computadora al ne¬ 
gocio dondefue comprada, 
en especial si todavía está 
en garantía, para que allí 
solucionen el problema. 


INTERFASE 

ESPECIAL 


Tengo una Spectrum 48K, 
y quisiera que me solucio¬ 
nen las siguientes dudas: 

1. - He comprado un libro 
de Robótica, y en una parte 
del mismo dice;”Necesita- 
rás un interfaz especial, de 
salida paralela..”. Me gus¬ 
taría saber a qué interfase 
se refiere, y si lo puedo ha¬ 
cer yo mismo. 

2. - ¿Hay que abonar alguna 
cuota en el club K 64? 


MIGUELFERNANDEZ 
SANTA FE 

K 64: 

1. -Resulta un poco extraño 
que en un libro hagan men¬ 
ción de una interfase y no 
deii más datos sobre la mis¬ 
ma. 

Guiándonos por lo que di- 
cela frase, y tratándose de 
Robótica, suponemos que 
se deben referir a una in¬ 
terfase paralelo tipo PIO, 
en el cual tenemos dos 
ports de 8 bits disponibles 
para el usuario. 

Estos dos ports pueden ser 
tanto de entrada como sa¬ 
lida, y esto se programa 
desde BASIC, mediante 
instrucciones tipo IN y 
OUT. Si bien no es un pro¬ 
yectó muy delicado en lo 
que se refiere a hardware, 
si uno mismo no se anima 
armarlo, se puede recurrir 
áálgüho de los modelos ya 
hechos, que se venden en 
comercios de la capital. 

2. - No, es uhservicio total¬ 
mente gratuito que brinda 
nuestra revista. 


CAMBIO DE 
MAQUINA 

Estoy tratando de cambiar 
miCZlOOOPlusporunaC- 
64, y me surgieron las si¬ 
guientes dudas: 

1. - Por medio de conexio¬ 
nes de cables, ¿podría utili¬ 
zar un grabador común en 
vez de un dátasete? 

2. - ¿Hay algún programa 
para producir voz humana 
en la C 64 ? Si existe, ¿có¬ 
mo se llama? 

3. - ¿Que es un Sprite? 

4 - ¿Qué es una ventana? 

JORGE DIMITROFF 
CORDOBA 

K 64: 

l.-No, la C-64 necesita de 
un grabador especial (da- 
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tásete) para cargar y gra¬ 
bar programas. Para po¬ 
der utilizar un grabador 
común, es necesaria una 
interfase. 

2. - Sí, se llama SAM. 

3. - Es un gráfico móvil de¬ 
finido por el usuario. La 
ventaja de utilizar un Spri- 
te es que se puede mover a 
intervalos muy pequeños 
por la pantalla, por medio 
de un POKE a un determi¬ 
nado registro del chip de 
video. Además, se pueden 
detectar colisiones entre 
Sprites.oentre un Spritey 
el fondo de la pantalla. En 
síntesis, son una gran ayu¬ 
da para programar cual¬ 
quier tipo de juegos. 

4. - Es un área de la panta¬ 
lla que se reserva para al¬ 
gún tipo de función, inde¬ 
pendientemente de lo que 
suceda en el resto de la 
misma. Algunas máquinas 
permiten abrir varias ven¬ 
tanas simultáneamente, 
cada una con una función 
diferente El método ideal 
para utilizar ventanas es el 
mouse en vez del teclado. 
De esta forma, por medio 
del mouse, movemos la fie- 
chita (o su equivalente) 
hasta la ventana corres¬ 
pondiente y, una vez dentro 
de ella seleccionamos al¬ 
gún ítem de un menú . De 
esta forma se evita el uso 
del teclado para seleccio¬ 
nar distintas alternativas 
de funciona miento de la ¡ 
máquina. 


DUDAS EN PASCAL 

Tengo una TALENT 
MSX, con disquetera, y es¬ 
toy interesado en la parte 
científica de la computa¬ 
ción. He leído acerca del 
funcionamiento del TUR¬ 
BO PASCAL, y tengo las 
siguientes dudas: 

1. - ¿Cómo se imprimen los 
listados en un programa 
PASCAL? 

2. - ¿Cómo se trabaja con 
gráficos? 

3. - ¿Qué libro me reco¬ 
miendan de Pascal para 
MSX? 

GUSTAVO PITA 
ENTRE RIOS 

K 64: 

l.-Como el PASCAL es un 
lenguaje compilado, el 
proceso de creación y “de- 
bugging" de un programa 
es un poco distinto del co¬ 
rrespondiente a su par en 
BASIC. 

Por ejemplo, al no tener un 
intérprete de PASCAL, no 
tenemos una orden LIST, 
como en BASIC. 

Los programas en PAS¬ 
CAL se escriben con un 
procesador de textos, del 
mismo modo que escribi¬ 
mos una carta. Solo se debe 
tener la precaución de tra¬ 
bajar en modo no docu¬ 
mento si el procesador es el 
Wordstar. 

lina vez que escribimos el 


programa, lo compilamos 
y obtenemos un código eje¬ 
cutable. 

Para listar el programa se 
debe proceder de acuerdo 
con las instrucciones del 
procesador de textos, ya 
que el mismo es un archivo 
tifio Á$£Í!fsólo que cón «- 
na función específica. 

2. - Las implementaciones 
grecas dependerán de la 
máquina, y de la versión de 
Pascal con que estemos 
trabajando. Por ejemplo, 
el Turbo Pascal tiene un d- 
gregado con procedimien¬ 
tos y junciones para gráfi¬ 
cos en alta resolución, 
mientras que de otro modo 
se debería recurrir a lla¬ 
madas a rutinas internas 
de la computadora, y tras¬ 
paso de parámetros a las 
mismas. 

En los manuales de Pascal 
se habla poco con respecto 
a los gráficos, ya que estos 
no dependen en general del 
lenguaje, sino de las carac¬ 
terísticas del hardware de 
la computadora. 

3. - Como dicen, lo mejor es 
recurrir a las fuentes,y por 
ello recomendamos ver el 
manual de Pascal de Jen- 
sen y Wirth (los creadores 
del lenguaje). En el mismo 
se encuentran documenta¬ 
das todas las característi¬ 
cas, estructuras y formas 
de instrucciones del mis¬ 
mo. 

El único problema que 
puede tener es no ser dema¬ 


siado didáctico, por lo que 
se pueden ver otros libros 
antes de decidirse. 


BASES 

Veo con agrado que la re¬ 
vista lanza concursos de 
programas y notas para to¬ 
das las máquinas, ya sean 
garandes, chicas o categorí¬ 
as abiertas. 

Sin embargo, en el último 
coticuiSó 16 K se dice que 
las bases del mismo son i- 
dénticas a las del concurso 
del programador del año. 
Les pediría si por favor me 
pueden decir cuáles son los 
requisitos que deben cum 
plir los programas a enviar. 

CLAUDIO 
CARAMUSCIANO 
OLAV ARRIA 

K 64: 

Los requisitos qué deben 
cumplir los programas que 
participan en cualquier 
concurso de la revista son 
los siguientes:. 

- Deben apuntar a “sacar 
el jugo” a ló equipos. 

- Se debe incluir una expli¬ 
cación del funcionamiento 
del programa, detallando 
sus distintas rutinas. 

-Siel mismo incluye partes 
en código máquina, las 
mismas deben estar expli¬ 
cadas. 

- Se debe incluir un listado 
de las principales varia- 
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bles del mismo: 1¡1¡¡111Í 
- Si es pasible* se debe in¬ 
cluir mlístado delprogtd- 
ma, aunque esto no es ex¬ 
cluyeme, ya que hay mu» 
choslectores que no pose¬ 
en impresora. 

-Por una cuestión de segu¬ 
ridad, si ^programaviene 
en cásete, se deben hácér 
varias copias del mismo, y 
■ ponerle él nombre propio y 
M $! programa al cásete. 
CoMp se puede ver, lo qué 
se pide está incluido en él 
proceso normal dé cféa- 
ción de un programa (es- 
PMiipáfyáriátt expli¬ 
cación del funcionamiento, 
ptcéterá), por lo que rio sé 
debes tarea, ex- 

Pa para ningún lector. 

Por último, queremos des¬ 
tacar qué losprogramas 
son evaluados en función 
de ta rnáquiná para ta que 
fuerdn escritos, ya que no 
tiene mayor sentido com¬ 
parar un programa de una 
&128 con otro escrito en 
una CZ1000. 


COLORES 

SUPERPUESTOS 

Tengo una Taíent M$X¿ y 
quisiera saber lo siguiente: 
1.- ¿Por qué al dibujar con 
LJNE y DRAW, teniendo 
por ejemplo unas líneas [ 
que se cruzan y son de dis¬ 
tintos colores, una parte de ¡ 
una de ellas sepintadélco-1 
íor de la que la cruza? 
¿Puede ser un problemadel 
televisor? 

H Quisiera saber cuál es el 
modem telefónico más a-¡ 
propiado para mi máquina 
3.- ¿Hay alguna función: 
que sirva para acelerar y q- 
tra para volverlo a la velo¬ 
cidad normal de ejecución, 
como lo es la orden FAST y 
$ÍX)W délaTK 85 y simi¬ 
lares ? 


MARTIN BUTELER ¿Pf 
^TRIEt4UO NEGRO 

K 64: 

L- Dentro de IOS posibili¬ 
dades de un cruce de líne¬ 
as, sé deben distinguir dos 
análisis distintos. 
iBljpimetqiimptica el cam¬ 
bio decolot delpunto exac¬ 
to donde las líneas se cru- 
iáh. En este punto, si una 
línea era de color rojo y lo 
oirá azul, deberíamos ob¬ 
tener un tono parecido al 
póletá. Pin embargo, la 
computadora no le puede 
dar dos colores distintos a 
uá mismo pixet en un mis¬ 
mo instante de tiempo, y 
por lo tanto el punto toma 
tai único color . 

En esto no tiene nada que 
ver el televisor, ni la reso¬ 
lución de la máquina. Sin 
embargo , en las inmedia¬ 
ciones de fa zona del cruce 
:dk, tas líneas pueden suce¬ 
der cosas extrañas, de a- 
cuerdocon la resolución 
de la máquina. 
NÓrmálménte; existe una 
resolución máxima por á- 
réqidé..pantalla, que está 
relacionada con el número 
de co lo res que puede pre¬ 
sentar la máquina. 

de ocho por ocho pixels e- 
xiste una cantidad máxima 
de colores distintos, inclu¬ 
yendo el del fondo. Es por 
éste motivo que en las pro¬ 
ximidades de la zona del 
cruce los colores se . 

“ mezclan 

2.- Es el modem Talent 
TMX 510, que trabaja en 
dos normas (BELL y 
CCJTT), a 300 y 1200 
baudsyposeesoftdt^r^ 
ideación incluido. 

3 ,- No , en realidad hay un 
épacdéWríéépió en lájti- 
terpretación dé éstos co¬ 
mandos. Cuando la máqui¬ 
na trabaja enSLOW, noes- 
tá trabajando a una veloci¬ 


dad mas baja de la normal, 
sitio qüe esa es su veloci¬ 
dad normal en funciona¬ 
miento. - Cuando la pasa¬ 
mos a FAST, es cierto que 
la velocidad de procesa¬ 
miento aumenta, pero tam¬ 
bién se debe notar que per¬ 
demos la presentación de 
video. 

Esto se debed una falencia 
dé ésta computadora (la 
TK-85)en la parte de gene¬ 
ración de video. 

Como éste problema fue 
Solucionado en máquinas 
más avanzadas (como las 
MSX), podemos conside¬ 
rar que tas mismas traba- 
fatiéoatmámménfm 
do FAST. 


MEJOR CON 
CREACION 

Ante la falta de programas 
e información sobre la 
computadora Commodore 
16, los usuarios nos vemos 
obligados a “rebuscamos” 
como se pueda. Una mane¬ 
ra de darle uso a nuestra 
computadora es adaptando 
programas publicados por 
ustedes en las revistas K 64 
y Drean Commodore. De¬ 
searía saber si estos progra¬ 
mas adaptados pueden ser 
publicados. 

Además, desearía comuni¬ 
carme con usuarios de 
computadoras CZ 1000 y 
Commodore 16 , para lo 
cual les agradecería la pu¬ 
blicación de mi dirección. 

PASCUAL A. FERRARIS 
SAN LUIS 2616 
(2000) ROSARIO 
SANTA FE 

K64: 

Afes parece buena /a idéá 
del 41 rebusque”, pues esta¬ 
mos de acuerdo en que la 
C-16 es una máquina con 
poca información en el 
mercado. Sin embargo, no 


por eso debemos olvidar¬ 
nos de crear, ya que una 
computadora no solo sirve 
para copiar pro gramas. En 
el caso de la C-16,pese a su 
memoria limitada , posee ti¬ 
na versión de BASIC bas¬ 
tante avanzada, y eso hace 
posible lamayoría de lasá- 
plicaciones accesibles a o- 
tras computadoras. 


CONEXION DIRECTA 

Aprovecho la oportunidad 
para hacerles algunas pre¬ 
guntas con respecto a Ta¬ 
lent MSX. 

1. - ¿Es posible conectarle 
directamente a la computa¬ 
dora una impresora y/o un 
modem sin tener la interfa¬ 
se RS 232? 

2. - ¿Qué tipo de impresora 
y modem me recomien¬ 
dan? 

PEDRO CERDA 
COSQUIN 

K 64: 

1. - Sí, la Talent tiene en su 
parte posterior una salida 
tipo Centronics para im¬ 
presora, y un port de ex¬ 
pansión para conectar el 
modem. Todo esto se puede 
hacer sin necesidad de in¬ 
terfase alguna. 

2. -En cuanto a la impreso¬ 
ra, cualquiera que tenga 
entrada paralelo sirve pa¬ 
ra la MSX. Por ejemplo in¬ 
cluye a la línea EPSON, y 
las IBM compatibles inclu¬ 
yendo a la Commodore 
MPS1000. 

Párarnodem,el modelo fa¬ 
bricado por Telemática es 

el TMX-510. 

/ 













Encienda 
una computadora 

Talentos 

y sus periféricos. 


MODEM 

• Interfaz asincrónica incorporada. 

• Normas BELL y CCITT, 300 y 
1.200 baudios. 

• Incluye en 80 Kb software^ 
de comunicaciones 
MSX-PLAN 
y MSX-WRITE 



RS-232 

• Velocidades programables desde 
50 a 19.200 baudios 

• Procesamiento de 
comunicaciones 
desde Basic. 

• Buffer de 128 
caracteres 
para 

recepción 



UNIDAD DE DISCOS FLEXIBLES 

• 5 1/4 de 360 Kb (DS-DD) 

• Velocidad transferencia 
250 Kb/sg. 

• Formato grabación 
compatible 
MS-DOS. 



TECLADO NUMERICO 



• Conexión a Joystick 

• Se integra a todo el 
software que corre 
bajo MSX-DOS 
(Ej.: D-Basell. 
MSX-Plan. etc.) 




MONITOR 

MONOCROMATIC012’ 

• Anti-reflejo - Fósforo verde. 

• Apto para uso profesional 

• (80 caracteres x 25 líneas). 

• Parlante con amplificador 
incorporado 


Software 



MOUSE 

• Código DPM-220, 
accesorio para graficar. 




EXPANSION 80 COLUMNAS 

• Hace posible la utilización de 
software estándar CP/M, 
emulando terminal tipo VT-52. 

• Incluye software para 
manejo de video. 


MSX-LOGO 

Desarrollado por Logo 
Computer System Inc. con 
aplicación de primitivas y 
redacción del Manual por 
los Ings. Hilario Fernández 

Long y Horacio Reggini. 

MSX-LPC 

Lenguaje de 
• programación 
estructurado y 
en castellano. 

MSX-PLAN 

Planilla de calculo 
de Microsoft Corp. 
(Versión para MSX 
del Multiplan.) 

MSX-WRITE ^ 

Procesador de 
palabra de ASCII 

Corp. en castellano. 





MINI-LAN 




EQUIPO CENTRAL 
PROFESOR 




EQUIPO ALUMNO 



DISKETTERAS 
2x360 KB 


£ 


EQUIPO ALUMNO 


(RED PARA USO EDUCACIONAL) 

• Comunicación por linea compartida 
a 30.000 baudios. 

• Comparte unidades de disco 

e impresoras de consola MSX maestro 
con hasta 10 consolas MSX alumno 

• Carga simultánea de un programa a 
todos los alumnos. 

• Carga individual de maestro a alumno 

• Salvado de programa alumno a unidad 
de disco maestro 

• Salida a impresora de maestro del 
listado de programa alumno, en 
spooling. 

• Funciona desde MSX-Basic. 

MSX-Logo o cualquier programa que 
corra desde Basic. 

• Estando activa, se dispone de todo el 

MSX-Basic. 
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Talent , 

Tecnología ylaiento^^^C^i 

Producida en San Luis por Telemática S.A. licenciataria exclusiva de Microsoft Corp. y ASCII Corp. para uso de la norma MSX en Argentina. 

6 meses de garantía y mensualmente en su quiosco la revista Load MSX. 

• MSX, MSX-DOS, MSX-PLAN, MS-DOS. son marcas registradas de Microsoft Corporation. MSX WRITE es marca registrada de ASCII Corporation 

• CP/M es marca registrada de Digital Research MSX-LOGO es marca registrada de Logo Computer Systems Inc Telemática: 1986. Todos los derechos reservados. 
Los datos y especificaciones que figuran en este aviso pueden ser modificados sin previo aviso. 















































Es un monitor color. Es un televisor color. 

Es binorma automático. Es un nuevo tamaño. 

Y lo más importante: es PHILCO 
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